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 | 2fe4a905f8708a5382d60fa7f97d4337e5080a05 (patch) | |
| tree | 072c291272fa3767f4e1c0828c41d6bb6a8b6cda /lisp/time.el | |
| parent | 8ccc377f964b5327269f74968b43096ab0c01671 (diff) | |
| download | emacs-2fe4a905f8708a5382d60fa7f97d4337e5080a05.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 |