[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/add-log.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/add-log.el |
Date: |
Wed, 26 Apr 2006 14:16:12 +0000 |
Index: emacs/lisp/add-log.el
diff -u emacs/lisp/add-log.el:1.175 emacs/lisp/add-log.el:1.176
--- emacs/lisp/add-log.el:1.175 Wed Apr 26 05:23:37 2006
+++ emacs/lisp/add-log.el Wed Apr 26 14:16:04 2006
@@ -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)))