From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 26 Apr 2006 14:16:05 +0000 (+0000)
Subject: (add-log-iso8601-time-zone): Make parameter optional.
X-Git-Tag: emacs-pretest-22.0.90~2944
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0739a962ae4c02e6392fc9e364f8f2186cbc5e99;p=emacs.git

(add-log-iso8601-time-zone): Make parameter optional.
(add-log-iso8601-time-string): Fix call to format-time-string.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d2d3cd6f9b0..dea1f0b9efe 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
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)))