Mercurial > emacs

comparison lisp/time.el @ 132:0cbdae7c532f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Wed, 05 Dec 1990 18:47:42 +0000
parents b6fb5f9cb739
children 7e4c7ef44243
comparison
equal deleted inserted replaced
131:d4c523560fe8 132:0cbdae7c532f
15 15
16 ;; You should have received a copy of the GNU General Public License 16 ;; You should have received a copy of the GNU General Public License
17 ;; along with GNU Emacs; see the file COPYING. If not, write to 17 ;; along with GNU Emacs; see the file COPYING. If not, write to
18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
19 19
20
21 (defvar display-time-mail-file nil
22 "*File name of mail inbox file, for indicating existence of new mail.
23 Default is system-dependent, and is the same as used by Rmail.")
20 24
21 (defvar display-time-process nil) 25 (defvar display-time-process nil)
22 26
23 (defvar display-time-interval 60 27 (defvar display-time-interval 60
24 "*Seconds between updates of time in the mode line.") 28 "*Seconds between updates of time in the mode line.")
63 (sit-for 0)) 67 (sit-for 0))
64 68
65 (defun display-time-filter (proc string) 69 (defun display-time-filter (proc string)
66 (let ((time (current-time-string)) 70 (let ((time (current-time-string))
67 (load (format "%03d" (car (load-average)))) 71 (load (format "%03d" (car (load-average))))
68 (mail-spool-file (concat rmail-spool-directory 72 (mail-spool-file (or display-time-mail-file
69 (or (getenv "LOGNAME") 73 (getenv "MAIL")
70 (getenv "USER") 74 (concat rmail-spool-directory
71 (user-login-name)))) 75 (or (getenv "LOGNAME")
76 (getenv "USER")
77 (user-login-name)))))
72 hour pm) 78 hour pm)
73 (setq hour (read (substring time 11 13))) 79 (setq hour (read (substring time 11 13)))
74 (setq pm (>= hour 12)) 80 (setq pm (>= hour 12))
75 (if (> hour 12) 81 (if (> hour 12)
76 (setq hour (- hour 12)) 82 (setq hour (- hour 12))