diff options
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)))) |