diff options
| author | Glenn Morris | 2008-02-16 22:21:18 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-02-16 22:21:18 +0000 |
| commit | e279593d41d1992ccde70cf7e5698c53c6e076d4 (patch) | |
| tree | 6575622c6e055e8dba2e71c81cdcdaf48a98511e | |
| parent | 5c9fad4128d6d8284e91d8284765acae76573655 (diff) | |
| download | emacs-e279593d41d1992ccde70cf7e5698c53c6e076d4.tar.gz emacs-e279593d41d1992ccde70cf7e5698c53c6e076d4.zip | |
(emacs-uptime): Use before-init-time rather than emacs-startup-time.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/time.el | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 08664b7b346..ae9b0072d04 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -32,6 +32,12 @@ | |||
| 32 | 32 | ||
| 33 | 2008-02-16 Glenn Morris <rgm@gnu.org> | 33 | 2008-02-16 Glenn Morris <rgm@gnu.org> |
| 34 | 34 | ||
| 35 | * startup.el (emacs-startup-time): Rename to `before-init-time'. | ||
| 36 | (before-init-time): New name for `emacs-startup-time'. | ||
| 37 | (command-line): Use before-init-time rather than emacs-startup-time. | ||
| 38 | * time.el (emacs-uptime): Use before-init-time rather than | ||
| 39 | emacs-startup-time. | ||
| 40 | |||
| 35 | * composite.el (composition-function-table): Doc fix. | 41 | * composite.el (composition-function-table): Doc fix. |
| 36 | 42 | ||
| 37 | * calendar/time-date.el (format-seconds): Remove `nonzero' argument | 43 | * calendar/time-date.el (format-seconds): Remove `nonzero' argument |
diff --git a/lisp/time.el b/lisp/time.el index dc4e500cddc..0613e1586bc 100644 --- a/lisp/time.el +++ b/lisp/time.el | |||
| @@ -558,7 +558,7 @@ For example, the Unix uptime command format is \"%D, %z%2h:%.2m\"." | |||
| 558 | (let ((str | 558 | (let ((str |
| 559 | (format-seconds (or format "%Y, %D, %H, %M, %z%S") | 559 | (format-seconds (or format "%Y, %D, %H, %M, %z%S") |
| 560 | (time-to-seconds | 560 | (time-to-seconds |
| 561 | (time-subtract (current-time) emacs-startup-time))))) | 561 | (time-subtract (current-time) before-init-time))))) |
| 562 | (if (interactive-p) | 562 | (if (interactive-p) |
| 563 | (message "%s" str) | 563 | (message "%s" str) |
| 564 | str))) | 564 | str))) |