Mercurial > emacs
changeset 7030:9e51b51e8595
Pass operation to find-file-name-handler.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 22 Apr 1994 23:59:24 +0000 |
| parents | f67c02c50e2a |
| children | adbebd010e43 |
| files | lisp/dired-aux.el lisp/dired.el lisp/files.el lisp/ls-lisp.el lisp/textmodes/=ispell4.el |
| diffstat | 5 files changed, 9 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired-aux.el Fri Apr 22 23:56:44 1994 +0000 +++ b/lisp/dired-aux.el Fri Apr 22 23:59:24 1994 +0000 @@ -497,7 +497,7 @@ ;; Compress or uncompress FILE. ;; Return the name of the compressed or uncompressed file. ;; Return nil if no change in files. - (let ((handler (find-file-name-handler file))) + (let ((handler (find-file-name-handler file 'dired-compress-file))) (cond (handler (funcall handler 'dired-compress-file file)) ((file-symlink-p file)
--- a/lisp/dired.el Fri Apr 22 23:56:44 1994 +0000 +++ b/lisp/dired.el Fri Apr 22 23:59:24 1994 +0000 @@ -646,7 +646,7 @@ ;; Remove directory DIR from any directory cache. (defun dired-uncache (dir) - (let ((handler (find-file-name-handler dir))) + (let ((handler (find-file-name-handler dir 'dired-uncache))) (if handler (funcall handler 'dired-uncache dir))))
--- a/lisp/files.el Fri Apr 22 23:56:44 1994 +0000 +++ b/lisp/files.el Fri Apr 22 23:59:24 1994 +0000 @@ -321,7 +321,7 @@ "Copy the file FILE into a temporary file on this machine. Returns the name of the local copy, or nil, if FILE is directly accessible." - (let ((handler (find-file-name-handler file))) + (let ((handler (find-file-name-handler file 'file-local-copy))) (if handler (funcall handler 'file-local-copy file) nil))) @@ -338,7 +338,7 @@ (setq filename (expand-file-name filename)) (if (string= filename "") (setq filename "/")))) - (let ((handler (find-file-name-handler filename))) + (let ((handler (find-file-name-handler filename 'file-truename))) ;; For file name that has a special handler, call handler. ;; This is so that ange-ftp can save time by doing a no-op. (if handler @@ -1326,7 +1326,7 @@ redefine it. If the optional argument KEEP-BACKUP-VERSION is non-nil, we do not remove backup version numbers, only true file version numbers." - (let ((handler (find-file-name-handler name))) + (let ((handler (find-file-name-handler name 'file-name-sans-versions))) (if handler (funcall handler 'file-name-sans-versions name keep-backup-version) (substring name 0 @@ -1735,7 +1735,7 @@ (list (read-file-name "Make directory: " default-directory default-directory nil nil) t)) - (let ((handler (find-file-name-handler dir))) + (let ((handler (find-file-name-handler dir 'make-directory))) (if handler (funcall handler 'make-directory dir parents) (if (not parents) @@ -2000,7 +2000,7 @@ This works by running a directory listing program whose name is in the variable `insert-directory-program'. If WILDCARD, it also runs the shell specified by `shell-file-name'." - (let ((handler (find-file-name-handler file))) + (let ((handler (find-file-name-handler file 'insert-directory))) (if handler (funcall handler 'insert-directory file switches wildcard full-directory-p)
--- a/lisp/ls-lisp.el Fri Apr 22 23:56:44 1994 +0000 +++ b/lisp/ls-lisp.el Fri Apr 22 23:59:24 1994 +0000 @@ -62,7 +62,7 @@ regular expressions to match file names. The switches that work are: A a c i r S s t u" - (let ((handler (find-file-name-handler file))) + (let ((handler (find-file-name-handler file 'insert-directory))) (if handler (funcall handler 'insert-directory file switches wildcard full-directory-p)
--- a/lisp/textmodes/=ispell4.el Fri Apr 22 23:56:44 1994 +0000 +++ b/lisp/textmodes/=ispell4.el Fri Apr 22 23:59:24 1994 +0000 @@ -283,7 +283,7 @@ (unwind-protect (progn (cond ((or (null filename) - (find-file-name-handler buffer-file-name)) + (find-file-name-handler buffer-file-name nil)) (setq filename (make-temp-name "/usr/tmp/ispell")) (setq delete-temp t) (write-region (point-min) (point-max) filename))