From 816c20ee258f5c9e63572c1b15d5ff0afec14310 Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 12 Apr 2006 06:25:54 +0000 Subject: [PATCH] Simplified. --- epg-file.el | 28 +++------------------------- 1 file changed, 3 insertions(+), 25 deletions(-) diff --git a/epg-file.el b/epg-file.el index f15d07f..08d1bcb 100644 --- a/epg-file.el +++ b/epg-file.el @@ -134,31 +134,9 @@ with GnuPG." ;; Returns list of absolute file name and number of characters inserted. (list expanded-filename length))) - -(put 'epg-file-handler 'safe-magic t) -(let (epg-file-operations) - (mapc - (lambda (operation) - (let ((epg-file-operation (intern (format "epg-file-%s" operation)))) - (setq epg-file-operation (cons operation epg-file-operations)) - (put operation 'epg-file epg-file-operation))) - '(access-file add-name-to-file byte-compiler-base-file-name copy-file - delete-directory delete-file diff-latest-backup-file directory-file-name - directory-files directory-files-and-attributes dired-call-process - dired-compress-file dired-uncache expand-file-name - file-accessible-directory-p file-attributes file-directory-p - file-executable-p file-exists-p file-local-copy file-remote-p file-modes - file-name-all-completions file-name-as-directory file-name-completion - file-name-directory file-name-nondirectory file-name-sans-versions - file-newer-than-file-p file-ownership-preserved-p file-readable-p - file-regular-p file-symlink-p file-truename file-writable-p - find-backup-file-name find-file-noselect get-file-buffer - insert-directory insert-file-contents load make-directory - make-directory-internal make-symbolic-link rename-file set-file-modes - set-visited-file-modtime shell-command substitute-in-file-name - unhandled-file-name-directory vc-registered verify-visited-file-modtime - write-region)) - (put 'epg-file-handler 'operations epg-file-operations)) + +(put 'write-region 'epg-file 'epg-file-write-region) +(put 'insert-file-contents 'epg-file 'epg-file-insert-file-contents) (unless (assoc epg-file-name-regexp file-name-handler-alist) (setq file-name-handler-alist -- 1.7.10.4