summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-06-27 16:19:58 +0200
committerBastien Guerry <bzg@altern.org>2013-06-27 16:20:05 +0200
commiteb7c3705568e707138be990f47bd99393d419489 (patch)
tree3e0ab81d77120ff712087a4e452aae0e9c881e23
parenteff77aa85ea2e812ddc549ba88738d102ef875f6 (diff)
downloadorg-mode-eb7c3705568e707138be990f47bd99393d419489.tar.gz
org.el (org-scan-tags): Don't disable `case-fold-search' too early
* org.el (org-scan-tags): Don't disable `case-fold-search' too early. Thanks to Nicolas Richard for the patch: http://mid.gmane.org/87d2rfsvby.fsf%40yahoo.fr
-rw-r--r--lisp/org.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el
index 74c2b04..a852c95 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -13779,7 +13779,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)))
@@ -13792,7 +13791,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))