mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(emacs-uptime): Add optional format' argument. Doc fix. Use %z'

Browse source 
rather than removed `nonzero' argument of format-seconds.
This commit is contained in:
Glenn Morris 2008-02-16 03:31:19 +00:00
parent 99d8d5404b
commit 04e5613961
2 changed files with 17 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/ChangeLog
View file

@ -1,3 +1,14 @@
2008-02-16 Glenn Morris <rgm@gnu.org>
* composite.el (composition-function-table): Doc fix.
* calendar/time-date.el (format-seconds): Remove `nonzero' argument
in favor of `%z' specifier.
(emacs-uptime): Move to time.el.
* time.el (emacs-uptime): Move here from time-date.el. Add
optional `format' argument. Doc fix. Use `%z' rather than
removed `nonzero' argument of format-seconds.
2008-02-16 Dan Nicolaescu <dann@ics.uci.edu>
* bindings.el (mode-line-mule-info): Make the tooltips more explicit.

11
lisp/time.el
View file

@ -550,14 +550,15 @@ To turn off the world time display, go to that window and type `q'."
;;;###autoload
(defun emacs-uptime ()
"Return a string giving the uptime of this instance of Emacs."
(defun emacs-uptime (&optional format)
"Return a string giving the uptime of this instance of Emacs.
FORMAT is a string to format the result, using `format-seconds'.
For example, the Unix uptime command format is \"%D, %z%2h:%.2m\"."
(interactive)
(let ((str
(format-seconds "%Y, %D, %H, %M, %S"
(format-seconds (or format "%Y, %D, %H, %M, %z%S")
(time-to-seconds
(time-subtract (current-time) emacs-startup-time))
t)))
(time-subtract (current-time) emacs-startup-time)))))
(if (interactive-p)
(message "%s" str)
str)))