diff options
| author | Richard M. Stallman | 1994-07-20 19:27:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-07-20 19:27:19 +0000 |
| commit | a8004e4b313254c72876a48dbf5217bb4f8499bf (patch) | |
| tree | 8b62d8416acef9eefa1e1d36d97cdf73cca0657a | |
| parent | 045dbcbc1d73435e19731a61f76eb72eefe9a2c1 (diff) | |
| download | emacs-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.el | 6 |
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." |