Mercurial > emacs
changeset 70231:b98a2445fe1f
(add-log-iso8601-time-zone): Make parameter optional.
(add-log-iso8601-time-string): Fix call to format-time-string.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 26 Apr 2006 14:16:05 +0000 |
| parents | a77964e24327 |
| children | a7c55a32db8b |
| files | lisp/ChangeLog lisp/add-log.el |
| diffstat | 2 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Apr 26 13:13:35 2006 +0000 +++ b/lisp/ChangeLog Wed Apr 26 14:16:05 2006 +0000 @@ -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.
--- a/lisp/add-log.el Wed Apr 26 13:13:35 2006 +0000 +++ b/lisp/add-log.el Wed Apr 26 14:16:05 2006 +0000 @@ -295,7 +295,7 @@ 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 @@ (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)))