Просмотр исходного кода

Fix bug, Patch by Bernt Hansen.

Carsten Dominik 17 лет назад
Родитель
Сommit
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))))