emacs-devel
[Top][All Lists]
Advanced

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

[ORG MODE] Tiny patch


From: Xavier Maillard
Subject: [ORG MODE] Tiny patch
Date: Wed, 15 Feb 2006 23:30:01 +0100
User-agent: RMAIL/GNU Emacs 22.0.50.1

Hello,

Here you can find a very tiny patch that allow one to have '@' character as a
candidate for tags in org-mode.

As I use those tags, I found it particulary useful to add support for them.

Here it is:

===File /tmp/org.el.diff====================================
--- org.el.orig 2006-02-15 23:17:37.000000000 +0100
+++ org.el      2006-02-15 23:18:34.000000000 +0100
@@ -6298,7 +6298,7 @@
                     (mapconcat 'regexp-quote
                                (nreverse (cdr (reverse org-todo-keywords)))
                                "\\|")
-                    "\\>\\)\\)? *\\(.*?\\)\\(:[A-Za-z_:]+:\\)?[ \t]*[\n\r]"))
+                    "\\>\\)\\)? *\\(.*?\\)\\(:[A-Za-z_@:]+:\\)?[ \t]*[\n\r]"))
         (props (list 'face nil
                      'done-face 'org-done
                      'undone-face nil
@@ -6386,7 +6386,7 @@
   (let ((match0 match) minus tag mm matcher orterms term orlist)
     (setq orterms (org-split-string match "|"))
     (while (setq term (pop orterms))
-      (while (string-match "^&?\\([-+:]\\)?\\([A-Za-z_]+\\)" term)
+      (while (string-match "^&?\\([-+:]\\)?\\(address@hidden)" term)
        (setq minus (and (match-end 1)
                         (equal (match-string 1 term) "-"))
              tag (match-string 2 term)
============================================================

And something that looks like a changelog entry:

2006-02-15  Xavier Maillard  <address@hidden>

  * org.el (org-scan-tags, org-make-tags-matcher): Add '@' character as part
    of an Org tag.

Regard,

Xavier Maillard




reply via email to

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