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.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.el')
| -rw-r--r-- | lisp/dired.el | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 0417a71e692..4ec1907df1f 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -581,14 +581,7 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." ;; Remove directory DIR from any directory cache. (defun dired-uncache (dir) - (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)) dir)) - (setq handler (cdr (car handlers)))) - (setq handlers (cdr handlers)))) + (let ((handler (find-file-name-handler dir))) (if handler (funcall handler 'dired-uncache dir)))) |