emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 07:46:51 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Richard M. Stallman 1990-12-05 18:47:42 +00:00
parent 22a72f5397
commit 29975121ed
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/time.el
View file

@ -18,6 +18,10 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(defvar display-time-mail-file nil
"*File name of mail inbox file, for indicating existence of new mail.
Default is system-dependent, and is the same as used by Rmail.")
(defvar display-time-process nil)
(defvar display-time-interval 60
@ -65,10 +69,12 @@ After each update, `display-time-hook' is run with `run-hooks'."
(defun display-time-filter (proc string)
(let ((time (current-time-string))
(load (format "%03d" (car (load-average))))
(mail-spool-file (concat rmail-spool-directory
(or (getenv "LOGNAME")
(getenv "USER")
(user-login-name))))
(mail-spool-file (or display-time-mail-file
(getenv "MAIL")
(concat rmail-spool-directory
(or (getenv "LOGNAME")
(getenv "USER")
(user-login-name)))))
hour pm)
(setq hour (read (substring time 11 13)))
(setq pm (>= hour 12))