emacs-orgmode
[Top][All Lists]
Advanced

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

Re: [O] bug with timestamp fontification (bisected to b6b509b)


From: Nicolas Richard
Subject: Re: [O] bug with timestamp fontification (bisected to b6b509b)
Date: Wed, 27 Feb 2013 18:01:37 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.2.92 (gnu/linux)

Bastien <address@hidden> writes:
> I think I *completely* fixed this now... thanks for the heads up
> and the easy recipe!

Thanks ; indeed dropping the change to the regexp seems the easiest (and
may avoid problems with code relying on that regexp out of the core).

May I suggest that you fix the commit just once more ? Part of the
previous fix was to increase "group number" everywhere, and that has to
be reverted. Here is a patch if you prefer :

>From 53152a802afe85e856d571867a2c8a36457cf0cd Mon Sep 17 00:00:00 2001
From: Nicolas Richard <address@hidden>
Date: Wed, 27 Feb 2013 17:55:42 +0100
Subject: [PATCH] Fix b6b509b one more time.

---
 lisp/org.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index b88b49a..7cf7832 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -5830,15 +5830,15 @@ by a #."
   (if (and (re-search-forward org-tsr-regexp-both limit t)
           (not (equal (char-before (match-beginning 0)) 91)))
       (progn
-       (org-remove-flyspell-overlays-in (match-beginning 1) (match-end 1))
-       (add-text-properties (match-beginning 1) (match-end 1)
+       (org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0))
+       (add-text-properties (match-beginning 0) (match-end 0)
                             (list 'mouse-face 'highlight
                                   'keymap org-mouse-map))
-       (org-rear-nonsticky-at (match-end 1))
+       (org-rear-nonsticky-at (match-end 0))
        (when org-display-custom-times
-         (if (match-end 4)
-             (org-display-custom-time (match-beginning 4) (match-end 4)))
-         (org-display-custom-time (match-beginning 2) (match-end 2)))
+         (if (match-end 3)
+             (org-display-custom-time (match-beginning 3) (match-end 3)))
+         (org-display-custom-time (match-beginning 1) (match-end 1)))
        t)))
 
 (defvar org-target-link-regexp nil
-- 
1.8.1.4





reply via email to

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