emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] version 4.56 different in emacs


From: Leo
Subject: [Orgmode] version 4.56 different in emacs
Date: Wed, 22 Nov 2006 19:48:25 +0000
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/23.0.0 (gnu/linux)

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





reply via email to

[Prev in Thread] Current Thread [Next in Thread]