* find-dired-revert
@ 2003-10-06 17:05 Kevin Rodgers
0 siblings, 0 replies; only message in thread
From: Kevin Rodgers @ 2003-10-06 17:05 UTC (permalink / raw)
*** 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
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2003-10-06 17:05 UTC | newest]
Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2003-10-06 17:05 find-dired-revert Kevin Rodgers
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.