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 | 5dbfdacd20b0c059da2e4e25fdfc1996b44acbb7 (patch) | |
| tree | 91c772705a65c77d06af040f9110290d6a70e59c /lisp/ls-lisp.el | |
| parent | 7114f404be6136811b52b930f979fb5387213b8c (diff) | |
| download | emacs-5dbfdacd20b0c059da2e4e25fdfc1996b44acbb7.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/ls-lisp.el')
| -rw-r--r-- | lisp/ls-lisp.el | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el index 54be933b2e3..94b0ed4385e 100644 --- a/lisp/ls-lisp.el +++ b/lisp/ls-lisp.el @@ -57,14 +57,7 @@ It does not support ordinary shell wildcards; instead, it allows regular expressions to match file names. The switches that work are: A a c i r S s t u" - (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))) (if handler (funcall handler 'insert-directory file switches wildcard full-directory-p) |