[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [PATCH] * lisp/org.el (org-scan-tags): do not impose a value of case
From: |
Nicolas Richard |
Subject: |
[O] [PATCH] * lisp/org.el (org-scan-tags): do not impose a value of case-fold-search on the user |
Date: |
Fri, 21 Jun 2013 10:48:33 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) |
Hello,
when using org-contacts,
(let ((filename (make-temp-file "contacts" nil ".org")))
(with-temp-file filename
(insert "* Eva Luator\n:PROPERTIES:\n:EMAIL: address@hidden:END:\n"))
(let ((org-contacts-files (list filename)))
(org-contacts "eva luator")))
doesn't list Eva Luator in the Contacts buffer, although
case-fold-search is set to t for me. I think it's an org-mode bug in
fact ; I suggest the following :
From: Nicolas Richard <address@hidden>
Date: Wed, 5 Jun 2013 15:02:37 +0200
---
lisp/org.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/org.el b/lisp/org.el
index 97773a0..da3e2f0 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -13807,7 +13807,6 @@ headlines matching this string."
(abbreviate-file-name
(or (buffer-file-name (buffer-base-buffer))
(buffer-name (buffer-base-buffer)))))))
- (case-fold-search nil)
(org-map-continue-from nil)
lspos tags tags-list
(tags-alist (list (cons 0 org-file-tags)))
@@ -13820,7 +13819,8 @@ headlines matching this string."
(when (eq action 'sparse-tree)
(org-overview)
(org-remove-occur-highlights))
- (while (re-search-forward re nil t)
+ (while (let (case-fold-search)
+ (re-search-forward re nil t))
(setq org-map-continue-from nil)
(catch :skip
(setq todo (if (match-end 1) (org-match-string-no-properties 2))
--
1.8.1.5
- [O] [PATCH] * lisp/org.el (org-scan-tags): do not impose a value of case-fold-search on the user,
Nicolas Richard <=