mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(dired-between-files): Ignore dired-subdir-regexp

Browse Source 
if we can move to the file name on the line.

(dired-internal-noselect): Don't revert, just suggest `g'.
This commit is contained in:
Richard M. Stallman 1994-07-20 19:27:19 +00:00
parent 045dbcbc1d
commit a8004e4b31
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/dired.el
View File

@ -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."