Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 7029:f67c02c50e2a | 7030:9e51b51e8595 |
|---|---|
| 644 (dired-insert-subdir dir)) | 644 (dired-insert-subdir dir)) |
| 645 (error nil)))))) | 645 (error nil)))))) |
| 646 | 646 |
| 647 ;; Remove directory DIR from any directory cache. | 647 ;; Remove directory DIR from any directory cache. |
| 648 (defun dired-uncache (dir) | 648 (defun dired-uncache (dir) |
| 649 (let ((handler (find-file-name-handler dir))) | 649 (let ((handler (find-file-name-handler dir 'dired-uncache))) |
| 650 (if handler | 650 (if handler |
| 651 (funcall handler 'dired-uncache dir)))) | 651 (funcall handler 'dired-uncache dir)))) |
| 652 | 652 |
| 653 ;; dired mode key bindings and initialization | 653 ;; dired mode key bindings and initialization |
| 654 | 654 |