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

(display-time-filter): Remove unnecessary (getenv "LOGNAME") and (getenv

Browse Source 
"USER"), since (user-login-name) already does this.
This commit is contained in:
Karl Heuer 1994-02-11 21:54:44 +00:00
parent a6451a9fa7
commit df00183bf8
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/time.el
View File

@ -98,9 +98,7 @@ After each update, `display-time-hook' is run with `run-hooks'."
(mail-spool-file (or display-time-mail-file
(getenv "MAIL")
(concat rmail-spool-directory
(or (getenv "LOGNAME")
(getenv "USER")
(user-login-name)))))
(user-login-name))))
hour am-pm-flag mail-flag)
(setq hour (read (substring time 11 13)))
(if (not display-time-24hr-format)