Mercurial > emacs
comparison lisp/find-dired.el @ 45382:374dfaadcd0f
(find-dired): Implement revert-buffer-function.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Mon, 20 May 2002 00:42:05 +0000 |
| parents | f19c8ff457df |
| children | 3531509372aa |
comparison
equal
deleted
inserted
replaced
| 45381:845f37c81b22 | 45382:374dfaadcd0f |
|---|---|
| 119 "" | 119 "" |
| 120 (concat "\\( " args " \\) ")) | 120 (concat "\\( " args " \\) ")) |
| 121 (car find-ls-option))) | 121 (car find-ls-option))) |
| 122 ;; The next statement will bomb in classic dired (no optional arg allowed) | 122 ;; The next statement will bomb in classic dired (no optional arg allowed) |
| 123 (dired-mode dir (cdr find-ls-option)) | 123 (dired-mode dir (cdr find-ls-option)) |
| 124 ;; This really should rerun the find command, but I don't | 124 (set (make-local-variable 'revert-buffer-function) |
| 125 ;; have time for that. | 125 `(lambda (ignore-auto noconfirm) |
| 126 (use-local-map (append (make-sparse-keymap) (current-local-map))) | 126 (find-dired ,dir ,find-args))) |
| 127 (define-key (current-local-map) "g" 'undefined) | |
| 128 ;; Set subdir-alist so that Tree Dired will work: | 127 ;; Set subdir-alist so that Tree Dired will work: |
| 129 (if (fboundp 'dired-simple-subdir-alist) | 128 (if (fboundp 'dired-simple-subdir-alist) |
| 130 ;; will work even with nested dired format (dired-nstd.el,v 1.15 | 129 ;; will work even with nested dired format (dired-nstd.el,v 1.15 |
| 131 ;; and later) | 130 ;; and later) |
| 132 (dired-simple-subdir-alist) | 131 (dired-simple-subdir-alist) |