Mercurial > emacs

comparison lisp/time.el @ 657:fec3f9a1e3e5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Sat, 30 May 1992 20:24:49 +0000
parents 8f76cc1e1067
children 4f28bd14272c
comparison
equal deleted inserted replaced
656:d74e65773062 657:fec3f9a1e3e5
1 ;; Display time and load in mode line of Emacs. 1 ;;; time.el --- display time and load in mode line of Emacs.
2
2 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
3 4
4 ;; This file is part of GNU Emacs. 5 ;; This file is part of GNU Emacs.
5 6
6 ;; GNU Emacs is free software; you can redistribute it and/or modify 7 ;; GNU Emacs is free software; you can redistribute it and/or modify
120 121
121 (defun display-time-file-nonempty-p (file) 122 (defun display-time-file-nonempty-p (file)
122 (while (file-symlink-p file) 123 (while (file-symlink-p file)
123 (setq file (file-symlink-p file))) 124 (setq file (file-symlink-p file)))
124 (> (nth 7 (file-attributes file)) 0)) 125 (> (nth 7 (file-attributes file)) 0))
126
127 ;;; time.el ends here