Commit 2b29f15c authored by Markus Rost's avatar Markus Rost
Browse files

(find-dired): Implement revert-buffer-function.

parent c7127655
2002-05-19 Markus Rost <rost@math.ohio-state.edu>
* find-dired.el (find-dired): Implement revert-buffer-function.
* mail/emacsbug.el (report-emacs-bug-hook): Do another
save-excursion.
2002-05-19 Glenn Morris <gmorris@ast.cam.ac.uk>
* progmodes/f90.el (f90-match-end, f90-break-line): Simplify a bit.
......
......@@ -121,10 +121,9 @@ as the final argument."
(car find-ls-option)))
;; The next statement will bomb in classic dired (no optional arg allowed)
(dired-mode dir (cdr find-ls-option))
;; This really should rerun the find command, but I don't
;; have time for that.
(use-local-map (append (make-sparse-keymap) (current-local-map)))
(define-key (current-local-map) "g" 'undefined)
(set (make-local-variable 'revert-buffer-function)
`(lambda (ignore-auto noconfirm)
(find-dired ,dir ,find-args)))
;; Set subdir-alist so that Tree Dired will work:
(if (fboundp 'dired-simple-subdir-alist)
;; will work even with nested dired format (dired-nstd.el,v 1.15
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment