ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
This commit is contained in:
Bastien Guerry 2013-06-27 16:19:58 +02:00
parent eff77aa85e
commit eb7c370556
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org.el
View File

@ -13779,7 +13779,6 @@ headlines matching this string."
(abbreviate-file-name (abbreviate-file-name
(or (buffer-file-name (buffer-base-buffer)) (or (buffer-file-name (buffer-base-buffer))
(buffer-name (buffer-base-buffer))))))) (buffer-name (buffer-base-buffer)))))))
(case-fold-search nil)
(org-map-continue-from nil) (org-map-continue-from nil)
lspos tags tags-list lspos tags tags-list
(tags-alist (list (cons 0 org-file-tags))) (tags-alist (list (cons 0 org-file-tags)))
@ -13792,7 +13791,8 @@ headlines matching this string."
(when (eq action 'sparse-tree) (when (eq action 'sparse-tree)
(org-overview) (org-overview)
(org-remove-occur-highlights)) (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) (setq org-map-continue-from nil)
(catch :skip (catch :skip
(setq todo (if (match-end 1) (org-match-string-no-properties 2)) (setq todo (if (match-end 1) (org-match-string-no-properties 2))