Fix fast tag selection affecting wrong line

* lisp/org.el (org-fast-tag-selection): Wrap `save-window-excursion'
with `save-excursion'.

In the case when the tags are changed remotely from the agenda, and
the affected buffer is already visible in another window, the tag
change was applied to the currently visible line in the target buffer,
not the headline in the agenda.
This commit is contained in:
Ingo Lohmar 2019-04-29 19:40:07 +02:00 committed by Nicolas Goaziou
parent e95ac0bac3
commit d1ce59571f
1 changed files with 159 additions and 158 deletions

View File

@ -14564,6 +14564,7 @@ Returns the new tags string, or nil to not change the current settings."
" "
(make-string (- org-tags-column (current-column)) ?\ ))))))
(move-overlay org-tags-overlay ov-start ov-end)
(save-excursion
(save-window-excursion
(if expert
(set-buffer (get-buffer-create " *Org tags*"))
@ -14725,7 +14726,7 @@ Returns the new tags string, or nil to not change the current settings."
(delete-overlay org-tags-overlay)
(if rtn
(mapconcat 'identity current ":")
nil))))
nil)))))
(defun org-make-tag-string (tags)
"Return string associated to TAGS.