diff options
| -rw-r--r-- | lisp/dired.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 6e061dabeb7..af74ed5c1f0 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -530,11 +530,11 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." | |||
| 530 | ;; disk. DIRNAME should be the directory name of that directory. | 530 | ;; disk. DIRNAME should be the directory name of that directory. |
| 531 | (defun dired-directory-changed-p (dirname) | 531 | (defun dired-directory-changed-p (dirname) |
| 532 | (not (let ((attributes (file-attributes dirname)) | 532 | (not (let ((attributes (file-attributes dirname)) |
| 533 | (modtime (visited-file-modtime))) | 533 | (modtime (visited-file-modtime))) |
| 534 | (or (eq modtime 0) | 534 | (or (eq modtime 0) |
| 535 | (not (eq (car attributes) t)) | 535 | (not (eq (car attributes) t)) |
| 536 | (and (= (car (nth 5 attributes)) (car modtime)) | 536 | (and (= (car (nth 5 attributes)) (car modtime)) |
| 537 | (= (nth 1 (nth 5 attributes)) (cdr modtime))))))) | 537 | (= (nth 1 (nth 5 attributes)) (cdr modtime))))))) |
| 538 | 538 | ||
| 539 | (defun dired-buffer-stale-p (&optional noconfirm) | 539 | (defun dired-buffer-stale-p (&optional noconfirm) |
| 540 | "Return non-nil if current dired buffer needs updating. | 540 | "Return non-nil if current dired buffer needs updating. |