Sfoglia il codice sorgente

org: Fix tags extraction

* lisp/org.el (org-get-tags-at): Use non-greedy match up to colon to
  match all tags (and not just the last.)
Marco Wahl 8 anni fa
parent
commit
7989ebfb6e
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  1. 1 1
      lisp/org.el

+ 1 - 1
lisp/org.el

@@ -14870,7 +14870,7 @@ ignore inherited ones."
 		    (org-back-to-heading t)
 		    (while (not (equal lastpos (point)))
 		      (setq lastpos (point))
-		      (when (looking-at ".+:\\([[:alnum:]_@#%:]+\\):[ \t]*$")
+		      (when (looking-at ".+?:\\([[:alnum:]_@#%:]+\\):[ \t]*$")
 			(setq ltags (org-split-string
 				     (match-string-no-properties 1) ":"))
 			(when parent