浏览代码

Make sure tags matching is case-insensitive.

Carsten Dominik 16 年之前
父节点
当前提交
04419cca3d
共有 2 个文件被更改,包括 8 次插入1 次删除
  1. 7 0
      lisp/ChangeLog
  2. 1 1
      lisp/org.el

+ 7 - 0
lisp/ChangeLog

@@ -1,3 +1,10 @@
+2008-09-19  Carsten Dominik  <dominik@science.uva.nl>
+
+	* org.el (org-scan-tags): Make sure that tags matching is not case
+	sensitive.  TODO keyword matching is case sensitive, however, to
+	avoid confusion with similar words that are not meant to be
+	keywords.
+
 2008-09-18  Carsten Dominik  <dominik@science.uva.nl>
 
 	* org.el (org-get-local-tags-at): New function.

+ 1 - 1
lisp/org.el

@@ -9456,7 +9456,7 @@ only lines with a TODO keyword are included in the output."
 	    (setcdr (car tags-alist)
 		    (org-remove-uniherited-tags (cdar tags-alist))))
 	  (when (and (or (not todo-only) (member todo org-not-done-keywords))
-		     (eval matcher)
+		     (let ((case-fold-search t)) (eval matcher))
 		     (or
 		      (not (member org-archive-tag tags-list))
 		      ;; we have an archive tag, should we use this anyway?