aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/dired.el10
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.