find-dired-revert

[Kevin Rodgers]

*** emacs-21.3/lisp/find-dired.el.orig  Thu Dec 27 19:13:31 2001
--- emacs-21.3/lisp/find-dired.el       Mon Oct  6 11:03:19 2003
***************
*** 121,130 ****
                       (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 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
--- 121,131 ----
                       (car find-ls-option)))
      ;; The next statement will bomb in classic dired (no optional arg allowed)
      (dired-mode dir (cdr find-ls-option))
!     (setq revert-buffer-function        ; buffer-local
!           `(lambda (ignore-auto noconfirm)
!              "Rerun \\[find-dired]."
!              (interactive)
!              (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

--
Kevin Rodgers