Fix thinko
* lisp/org.el (org-toggle-tag): Do not call `match-string' after `replace-match'.
This commit is contained in:
parent
7d21349dbe
commit
d777d5e0b7
|
@ -14746,9 +14746,9 @@ If ONOFF is `on' or `off', don't toggle but set to this state."
|
|||
(org-back-to-heading t)
|
||||
(let ((current
|
||||
(when (re-search-forward "[ \t]:\\([[:alnum:]_@#%:]+\\):[ \t]*$"
|
||||
(point-at-eol) t)
|
||||
(replace-match "")
|
||||
(nreverse (org-split-string (match-string 1) ":"))))
|
||||
(line-end-position) t)
|
||||
(prog1 (nreverse (org-split-string (match-string 1) ":"))
|
||||
(replace-match ""))))
|
||||
res)
|
||||
(pcase onoff
|
||||
(`off (setq current (delete tag current)))
|
||||
|
|
Loading…
Reference in New Issue