Переглянути джерело

org-scan-tags: Fix messed match groups in eeb4fa8c0

* lisp/org.el (org-scan-tags): Match space after TODO keyword outside
group and match the TODO-keyword in its own group.
Ihor Radchenko 2 роки тому
батько
коміт
a3788bd8be
1 змінених файлів з 1 додано та 1 видалено
  1. 1 1
      lisp/org.el

+ 1 - 1
lisp/org.el

@@ -10861,7 +10861,7 @@ headlines matching this string."
 			 ;; Get the correct level to match
 			 (concat "\\*\\{" (number-to-string start-level) "\\} ")
 		       org-outline-regexp)
-		     " *\\(" (regexp-opt org-todo-keywords-1) " \\)?"
+		     " *\\(?:\\(" (regexp-opt org-todo-keywords-1 t) "\\) \\)?"
 		     " *\\(.*?\\)\\([ \t]:\\(?:" org-tag-re ":\\)+\\)?[ \t]*$"))
 	 (props (list 'face 'default
 		      'done-face 'org-agenda-done