diff options
| -rw-r--r-- | lisp/time.el | 6 |
1 files changed, 2 insertions, 4 deletions
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 |