bth/um-mode
Watch
1
Fork
You've already forked um-mode
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

um-tag-do save-excursion

Browse source
This commit is contained in:
bth 2026-06-05 13:51:30 -07:00
commit a9e48df67c
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
um.el
View file

@ -317,9 +317,10 @@ Emits message if TAG is already present, but does not error."
"Insert or delete TAG from the journal header in current buffer. "Insert or delete TAG from the journal header in current buffer.
insert when INSERT > 0, delete otherwise." insert when INSERT > 0, delete otherwise."
(save-excursion
(if (> insert 0) (if (> insert 0)
(um-tag-insert tag) (um-tag-insert tag)
(um-tag-delete tag))) (um-tag-delete tag))))
;;;###autoload ;;;###autoload
(defun um-tag-dwim (ARG) (defun um-tag-dwim (ARG)
@ -358,9 +359,8 @@ Negative prefix arg is handled by `um-tag-do', which see.
(with-current-buffer (with-current-buffer
;; TODO: this should use the fallback logic: ;; TODO: this should use the fallback logic:
(find-file-noselect (expand-file-name f (um-root-path)) t) (find-file-noselect (expand-file-name f (um-root-path)) t)
(save-excursion
(um-tag-do tag ARG) (um-tag-do tag ARG)
(save-buffer)))) (save-buffer)))
)) ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;