Mercurial > emacs
diff lisp/dired.el @ 7030:9e51b51e8595
Pass operation to find-file-name-handler.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Fri, 22 Apr 1994 23:59:24 +0000 |
parents | 7c689b8065bd |
children | fa6a265334a2 |
line wrap: on
line diff
--- a/lisp/dired.el Fri Apr 22 23:56:44 1994 +0000 +++ b/lisp/dired.el Fri Apr 22 23:59:24 1994 +0000 @@ -646,7 +646,7 @@ ;; Remove directory DIR from any directory cache. (defun dired-uncache (dir) - (let ((handler (find-file-name-handler dir))) + (let ((handler (find-file-name-handler dir 'dired-uncache))) (if handler (funcall handler 'dired-uncache dir))))