diff options
| author | Roland McGrath <roland@gnu.org> | 1993-07-07 04:31:38 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1993-07-07 04:31:38 +0000 |
| commit | a8f3361a9884138547fa33650f02e99688bb31d2 (patch) | |
| tree | 821c54868348bb9aeeafa97f8e5ef3574c3d6166 /lisp/time.el | |
| parent | 0909dca6335d4732345569b6d10f29e018470e1b (diff) | |
| download | emacs-a8f3361a9884138547fa33650f02e99688bb31d2.tar.gz | |
(display-time-file-nonempty-p): Use file-chase-links.
Diffstat (limited to 'lisp/time.el')
| -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 |