From mboxrd@z Thu Jan 1 00:00:00 1970 From: Leo Subject: version 4.56 different in emacs Date: Wed, 22 Nov 2006 19:48:25 +0000 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Gmy5i-0005ST-UV for emacs-orgmode@gnu.org; Wed, 22 Nov 2006 14:49:06 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Gmy5g-0005SH-Ib for emacs-orgmode@gnu.org; Wed, 22 Nov 2006 14:49:05 -0500 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Gmy5g-0005SE-Cg for emacs-orgmode@gnu.org; Wed, 22 Nov 2006 14:49:04 -0500 Received: from [80.91.229.2] (helo=ciao.gmane.org) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA:32) (Exim 4.52) id 1Gmy5g-0005Ip-B9 for emacs-orgmode@gnu.org; Wed, 22 Nov 2006 14:49:04 -0500 Received: from list by ciao.gmane.org with local (Exim 4.43) id 1Gmy5I-0002mt-3b for emacs-orgmode@gnu.org; Wed, 22 Nov 2006 20:48:40 +0100 Received: from sl392.st-edmunds.cam.ac.uk ([131.111.223.202]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 22 Nov 2006 20:48:40 +0100 Received: from sdl.web by sl392.st-edmunds.cam.ac.uk with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 22 Nov 2006 20:48:40 +0100 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org 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