From a8004e4b313254c72876a48dbf5217bb4f8499bf Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 20 Jul 1994 19:27:19 +0000 Subject: [PATCH] (dired-between-files): Ignore dired-subdir-regexp if we can move to the file name on the line. (dired-internal-noselect): Don't revert, just suggest `g'. --- lisp/dired.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/dired.el b/lisp/dired.el index 3fb87804342..fa1d8ae3bbf 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -406,8 +406,7 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." (and (= (car (nth 5 attributes)) (car modtime)) (= (nth 1 (nth 5 attributes)) (cdr modtime))))) nil - (if (yes-or-no-p "Directory has changed on disk; update the buffer? ") - (dired-revert)))) + (message "Directory has changed on disk; type `g' to update Dired"))) ;; Else a new buffer (setq default-directory (abbreviate-file-name @@ -1752,7 +1751,8 @@ Optional argument means return a file name relative to `default-directory'." ;; Should be equivalent to (save-excursion (not (dired-move-to-filename))) ;; but is about 1.5..2.0 times as fast. (Actually that's not worth it) (or (looking-at "^$\\|^. *$\\|^. total\\|^. wildcard") - (looking-at dired-subdir-regexp))) + (and (looking-at dired-subdir-regexp) + (save-excursion (not (dired-move-to-filename)))))) (defun dired-next-marked-file (arg &optional wrap opoint) "Move to the next marked file, wrapping around the end of the buffer." -- 2.39.5