Mercurial > emacs
changeset 8299:bc8c9c72e3bf
(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'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 20 Jul 1994 19:27:19 +0000 |
| parents | 0ff871ea99d4 |
| children | 95b09cdfc59d |
| files | lisp/dired.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired.el Wed Jul 20 18:26:57 1994 +0000 +++ b/lisp/dired.el Wed Jul 20 19:27:19 1994 +0000 @@ -406,8 +406,7 @@ (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 @@ ;; 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."