From: Roland McGrath <roland@gnu.org>
Date: Wed, 7 Jul 1993 04:31:38 +0000 (+0000)
Subject: (display-time-file-nonempty-p): Use file-chase-links.
X-Git-Tag: emacs-19.34~11837
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2fe4a905f8708a5382d60fa7f97d4337e5080a05;p=emacs.git

(display-time-file-nonempty-p): Use file-chase-links.
---

diff --git a/lisp/time.el b/lisp/time.el
index eaab09e1934..3f89438a802 100644
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -1,6 +1,6 @@
 ;;; time.el --- display time and load in mode line of Emacs.
 
-;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1986, 1987, 1993 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 
@@ -128,8 +128,6 @@ After each update, `display-time-hook' is run with `run-hooks'."
   (sit-for 0))
 
 (defun display-time-file-nonempty-p (file)
-  (while (file-symlink-p file)
-    (setq file (file-symlink-p file)))
-  (> (nth 7 (file-attributes file)) 0))
+  (< 0 (nth 7 (file-attributes (file-chase-links file)))))
 
 ;;; time.el ends here