aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1994-07-20 19:27:19 +0000
committerRichard M. Stallman1994-07-20 19:27:19 +0000
commita8004e4b313254c72876a48dbf5217bb4f8499bf (patch)
tree8b62d8416acef9eefa1e1d36d97cdf73cca0657a
parent045dbcbc1d73435e19731a61f76eb72eefe9a2c1 (diff)
downloademacs-a8004e4b313254c72876a48dbf5217bb4f8499bf.tar.gz
emacs-a8004e4b313254c72876a48dbf5217bb4f8499bf.zip
(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'.
-rw-r--r--lisp/dired.el6
1 files 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."
406 (and (= (car (nth 5 attributes)) (car modtime)) 406 (and (= (car (nth 5 attributes)) (car modtime))
407 (= (nth 1 (nth 5 attributes)) (cdr modtime))))) 407 (= (nth 1 (nth 5 attributes)) (cdr modtime)))))
408 nil 408 nil
409 (if (yes-or-no-p "Directory has changed on disk; update the buffer? ") 409 (message "Directory has changed on disk; type `g' to update Dired")))
410 (dired-revert))))
411 ;; Else a new buffer 410 ;; Else a new buffer
412 (setq default-directory 411 (setq default-directory
413 (abbreviate-file-name 412 (abbreviate-file-name
@@ -1752,7 +1751,8 @@ Optional argument means return a file name relative to `default-directory'."
1752 ;; Should be equivalent to (save-excursion (not (dired-move-to-filename))) 1751 ;; Should be equivalent to (save-excursion (not (dired-move-to-filename)))
1753 ;; but is about 1.5..2.0 times as fast. (Actually that's not worth it) 1752 ;; but is about 1.5..2.0 times as fast. (Actually that's not worth it)
1754 (or (looking-at "^$\\|^. *$\\|^. total\\|^. wildcard") 1753 (or (looking-at "^$\\|^. *$\\|^. total\\|^. wildcard")
1755 (looking-at dired-subdir-regexp))) 1754 (and (looking-at dired-subdir-regexp)
1755 (save-excursion (not (dired-move-to-filename))))))
1756 1756
1757(defun dired-next-marked-file (arg &optional wrap opoint) 1757(defun dired-next-marked-file (arg &optional wrap opoint)
1758 "Move to the next marked file, wrapping around the end of the buffer." 1758 "Move to the next marked file, wrapping around the end of the buffer."