Hi all,
This is just my curiosity. I diff org.el (from emacs) and the one from
Carsten's website. Although they have same version number, I see the
following differences:
--- /tmp/org-emacs.el 2006-11-22 19:39:22.000000000 +0000
+++ /home/kky/org.el 2006-11-17 07:53:16.000000000 +0000
@@ -6112,7 +6112,6 @@
(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
@@ -6128,12 +6127,6 @@
(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))
--
Leo
_______________________________________________
Emacs-orgmode mailing list
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
