procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(add-log-iso8601-time-zone): Make parameter optional.

Browse source 
(add-log-iso8601-time-string): Fix call to format-time-string.
This commit is contained in:
Stefan Monnier 2006-04-26 14:16:05 +00:00
parent 13384ea67e
commit 0739a962ae
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2006-04-26 Stefan Monnier <monnier@iro.umontreal.ca>
* add-log.el (add-log-iso8601-time-zone): Make parameter optional.
(add-log-iso8601-time-string): Fix call to format-time-string.
2006-04-26 Kim F. Storm <storm@cua.dk>
* subr.el (posn-string, posn-image, posn-object): Doc fix.

5
lisp/add-log.el
View file

@ -295,7 +295,7 @@ It takes the same format as the TZ argument of `set-time-zone-rule'.
If nil, use local time.
If t, use universal time.")
(defun add-log-iso8601-time-zone (time)
(defun add-log-iso8601-time-zone (&optional time)
(let* ((utc-offset (or (car (current-time-zone time)) 0))
(sign (if (< utc-offset 0) ?- ?+))
(sec (abs utc-offset))
@ -311,7 +311,8 @@ If t, use universal time.")
(defvar add-log-iso8601-with-time-zone nil)
(defun add-log-iso8601-time-string ()
(let ((time (format-time-string "%Y-%m-%d" (eq t add-log-time-zone-rule))))
(let ((time (format-time-string "%Y-%m-%d"
nil (eq t add-log-time-zone-rule))))
(if add-log-iso8601-with-time-zone
(concat time " " (add-log-iso8601-time-zone))
time)))