Mercurial > emacs
diff lisp/dired-aux.el @ 1672:ecf43116a845
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.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Sat, 12 Dec 1992 15:21:45 +0000 |
parents | 2d29bf379da3 |
children | ffef0718ef6b |
line wrap: on
line diff
--- a/lisp/dired-aux.el Sat Dec 12 15:21:21 1992 +0000 +++ b/lisp/dired-aux.el Sat Dec 12 15:21:45 1992 +0000 @@ -477,14 +477,7 @@ ;; 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)