diff lisp/textmodes/org.el @ 74039:c00ab73bb294

* textmodes/org.el (org-fix-decoded-time): New function. (org-display-custom-time): Use `org-fix-decoded-time'.

--- a/lisp/textmodes/org.el	Fri Nov 17 16:06:29 2006 +0000
+++ b/lisp/textmodes/org.el	Fri Nov 17 16:06:50 2006 +0000
@@ -6112,6 +6112,7 @@
 	 (with-hm (and (nth 1 t1) (nth 2 t1)))
 	 (inactive (= (char-before (1- beg)) ?\[))
 	 (tf (funcall (if with-hm 'cdr 'car) org-time-stamp-custom-formats))
+	 (time (org-fix-decoded-time t1))
 	 (time (mapcar (lambda (x) (or x 0)) t1))
 	 (str (org-add-props
 		  (format-time-string
@@ -6127,6 +6128,12 @@
 	  (put-text-property beg end 'end-glyph (make-glyph str)))
       (put-text-property beg end 'display str))))
 
+(defun org-fix-decoded-time (time)
+  "Set 0 instead of nil for the first 6 elements of time.
+Don't touch the rest."
+  (let ((n 0))
+    (mapcar (lambda (x) (if (< (setq n (1+ n)) 7) (or x 0) x)) time)))
+
 (defun org-days-to-time (timestamp-string)
   "Difference between TIMESTAMP-STRING and now in days."
   (- (time-to-days (org-time-string-to-time timestamp-string))