From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nicolas Richard Subject: [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 Message-ID: <87d2rfsvby.fsf@yahoo.fr> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:43165) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Upx0k-0004Wh-IP for emacs-orgmode@gnu.org; Fri, 21 Jun 2013 04:48:03 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Upx0j-0003yJ-JJ for emacs-orgmode@gnu.org; Fri, 21 Jun 2013 04:48:02 -0400 Received: from mxin.ulb.ac.be ([164.15.128.112]:3261) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Upx0j-0003xz-DG for emacs-orgmode@gnu.org; Fri, 21 Jun 2013 04:48:01 -0400 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Hello, when using org-contacts, (let ((filename (make-temp-file "contacts" nil ".org"))) (with-temp-file filename (insert "* Eva Luator\n:PROPERTIES:\n:EMAIL: eva@gmail.com.invalid\n: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 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