Преглед изворни кода

Fix bug, Patch by Bernt Hansen.

Carsten Dominik пре 17 година
родитељ
комит
45cee29929
1 измењених фајлова са 1 додато и 0 уклоњено
  1. 1 0
      lisp/org.el

+ 1 - 0
lisp/org.el

@@ -9512,6 +9512,7 @@ the scanner.  The following items can be given here:
 	 org-todo-keyword-alist-for-agenda
 	 org-todo-keyword-alist-for-agenda
 	 org-tag-alist-for-agenda)
 	 org-tag-alist-for-agenda)
 
 
+    (cond
      ((eq match t)   (setq matcher t))
      ((eq match t)   (setq matcher t))
      ((eq match nil) (setq matcher t))
      ((eq match nil) (setq matcher t))
      (t (setq matcher (if match (org-make-tags-matcher match) t))))
      (t (setq matcher (if match (org-make-tags-matcher match) t))))