[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 "^&?\\([-+:]\\)?\\([A-Za-z_@]+\\)" 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 <zedek@gnu.org>
* org.el (org-scan-tags, org-make-tags-matcher): Add '@' character as part
of an Org tag.
Regard,
Xavier Maillard
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [ORG MODE] Tiny patch,
Xavier Maillard <=