diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-12-12 15:21:45 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-12-12 15:21:45 +0000 |
| commit | 925f786737e88d481e96ec424d9055579e81a74f (patch) | |
| tree | 312a63695e0b24040592cf9eacfcd71be3b86dff /lisp/dired-aux.el | |
| parent | 785dd21ca86d6f5b80720bd62f2826c0bdb75264 (diff) | |
| download | emacs-925f786737e88d481e96ec424d9055579e81a74f.tar.gz | |
The find-file-name-handler function in ../src/fileio.c is now
callable from lisp; use it instead of writing out its code.
* dired-aux.el (dired-compress-file): Just that.
* dired.el (dired-uncache): Just that.
* files.el (file-local-copy, file-truename,
file-name-sans-versions, make-directory, save-buffers-kill-emacs):
Just that.
* ls-lisp.el (insert-directory): Just that.
Diffstat (limited to 'lisp/dired-aux.el')
| -rw-r--r-- | lisp/dired-aux.el | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index c34fd50f0e7..75d0f17fd93 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -477,14 +477,7 @@ and use this command with a prefix argument (the value does not matter)." ;; Compress or uncompress FILE. ;; Return the name of the compressed or uncompressed file. ;; Rerurn nil if no change in files. - (let (handler (handlers file-name-handler-alist)) - (save-match-data - (while (and (consp handlers) (null handler)) - (if (and (consp (car handlers)) - (stringp (car (car handlers))) - (string-match (car (car handlers)) file)) - (setq handler (cdr (car handlers)))) - (setq handlers (cdr handlers)))) + (let ((handler (find-file-name-handler file))) (cond (handler (funcall handler 'dired-compress-file file)) ((file-symlink-p file) |