Mercurial > emacs
comparison lisp/dired.el @ 8321:ee7b758d2efa
(dired-internal-noselect): a zero modtime means directory is unchanged.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 24 Jul 1994 19:55:26 +0000 |
| parents | bc8c9c72e3bf |
| children | 941432da0ff3 |
comparison
equal
deleted
inserted
replaced
| 8320:2c77abdc0111 | 8321:ee7b758d2efa |
|---|---|
| 400 (if switches ; ... but new switches | 400 (if switches ; ... but new switches |
| 401 (dired-sort-other switches) ; this calls dired-revert | 401 (dired-sort-other switches) ; this calls dired-revert |
| 402 ;; If directory has changed on disk, offer to revert. | 402 ;; If directory has changed on disk, offer to revert. |
| 403 (if (let ((attributes (file-attributes dirname)) | 403 (if (let ((attributes (file-attributes dirname)) |
| 404 (modtime (visited-file-modtime))) | 404 (modtime (visited-file-modtime))) |
| 405 (or (not (eq (car attributes) t)) | 405 (or (eq modtime 0) |
| 406 (not (eq (car attributes) t)) | |
| 406 (and (= (car (nth 5 attributes)) (car modtime)) | 407 (and (= (car (nth 5 attributes)) (car modtime)) |
| 407 (= (nth 1 (nth 5 attributes)) (cdr modtime))))) | 408 (= (nth 1 (nth 5 attributes)) (cdr modtime))))) |
| 408 nil | 409 nil |
| 409 (message "Directory has changed on disk; type `g' to update Dired"))) | 410 (message "Directory has changed on disk; type `g' to update Dired"))) |
| 410 ;; Else a new buffer | 411 ;; Else a new buffer |