mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Roland McGrath 1993-07-07 04:31:38 +00:00
parent 8ccc377f96
commit 2fe4a905f8
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/time.el
View File

@ -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