]> code.delx.au - gnu-emacs/blobdiff - lisp/time.el
Revert the FOLLOW-SYMLINKS change for file-attributes.
[gnu-emacs] / lisp / time.el
index 7c0deadecfd4d6d51ff4689507817ce48ca43daf..fe3cdbb57be9ae977d43f5e122f9711a4980b1ae 100644 (file)
@@ -485,7 +485,7 @@ update which can wait for the next redisplay."
 (defun display-time-file-nonempty-p (file)
   (let ((remote-file-name-inhibit-cache (- display-time-interval 5)))
     (and (file-exists-p file)
-        (< 0 (nth 7 (file-attributes file nil t))))))
+        (< 0 (nth 7 (file-attributes (file-chase-links file)))))))
 
 ;;;###autoload
 (define-minor-mode display-time-mode