diff options
| author | Karl Heuer | 1994-02-11 21:54:44 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-02-11 21:54:44 +0000 |
| commit | df00183bf8cae1714b8af7764f6e5116ab9cfbb7 (patch) | |
| tree | f62ae031e48ec78c5f9aa4dd32c55cfe51c7ef07 | |
| parent | a6451a9fa77d22d125cd55cfa04bd896f4e5e5a0 (diff) | |
| download | emacs-df00183bf8cae1714b8af7764f6e5116ab9cfbb7.tar.gz emacs-df00183bf8cae1714b8af7764f6e5116ab9cfbb7.zip | |
(display-time-filter): Remove unnecessary (getenv "LOGNAME") and (getenv
"USER"), since (user-login-name) already does this.
| -rw-r--r-- | lisp/time.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/time.el b/lisp/time.el index 3e61e78448d..fe3df1f99ac 100644 --- a/lisp/time.el +++ b/lisp/time.el | |||
| @@ -98,9 +98,7 @@ After each update, `display-time-hook' is run with `run-hooks'." | |||
| 98 | (mail-spool-file (or display-time-mail-file | 98 | (mail-spool-file (or display-time-mail-file |
| 99 | (getenv "MAIL") | 99 | (getenv "MAIL") |
| 100 | (concat rmail-spool-directory | 100 | (concat rmail-spool-directory |
| 101 | (or (getenv "LOGNAME") | 101 | (user-login-name)))) |
| 102 | (getenv "USER") | ||
| 103 | (user-login-name))))) | ||
| 104 | hour am-pm-flag mail-flag) | 102 | hour am-pm-flag mail-flag) |
| 105 | (setq hour (read (substring time 11 13))) | 103 | (setq hour (read (substring time 11 13))) |
| 106 | (if (not display-time-24hr-format) | 104 | (if (not display-time-24hr-format) |