# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 742019498 0
# Node ID d7374f1828b5e0f5d97ce6ab38f2a5028c9d9b7d
# Parent  29f808aa587fe42c580e4be711ec32e17de2af68
(display-time-file-nonempty-p): Use file-chase-links.

diff -r 29f808aa587f -r d7374f1828b5 lisp/time.el
--- a/lisp/time.el	Wed Jul 07 03:06:28 1993 +0000
+++ b/lisp/time.el	Wed Jul 07 04:31:38 1993 +0000
@@ -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 @@
   (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