mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(dired-readin): Record the directory's modtime.

Browse Source 
(dired-internal-noselect): Offer to revert if dir has changed.
This commit is contained in:
Richard M. Stallman 1994-06-28 08:36:16 +00:00
parent 79e6ae333e
commit fa562dd5e1
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/dired.el
View File

@ -398,7 +398,16 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
(set-buffer buffer)
(if (not new-buffer-p) ; existing buffer ...
(if switches ; ... but new switches
(dired-sort-other switches)) ; this calls dired-revert
(dired-sort-other switches) ; this calls dired-revert
;; If directory has changed on disk, offer to revert.
(if (let ((attributes (file-attributes dirname))
(modtime (visited-file-modtime)))
(or (not (eq (car attributes) t))
(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))))
;; Else a new buffer
(setq default-directory
(abbreviate-file-name
@ -482,6 +491,9 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
;; dired-build-subdir-alist will call dired-clear-alist first
(set (make-local-variable 'dired-subdir-alist) nil)
(dired-build-subdir-alist)
(let ((attributes (file-attributes dirname)))
(if (eq (car attributes) t)
(set-visited-file-modtime (nth 5 attributes))))
(set-buffer-modified-p nil))))
;; Subroutines of dired-readin