diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-04-26 14:16:05 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-04-26 14:16:05 +0000 |
| commit | 0739a962ae4c02e6392fc9e364f8f2186cbc5e99 (patch) | |
| tree | c2d6095984506e290459fd85e3a128cd5fecb941 /lisp/add-log.el | |
| parent | 13384ea67e4819c703f42fa09344a614a0e76dbd (diff) | |
| download | emacs-0739a962ae4c02e6392fc9e364f8f2186cbc5e99.tar.gz | |
(add-log-iso8601-time-zone): Make parameter optional.
(add-log-iso8601-time-string): Fix call to format-time-string.
Diffstat (limited to 'lisp/add-log.el')
| -rw-r--r-- | lisp/add-log.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index b47494194d4..47a839d539d 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -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))) |