mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

; log-view-mark-entry, log-view-unmark-entry: Fix advancing point.

Browse source
This commit is contained in:
Sean Whitton 2025-09-05 15:30:02 +01:00
parent 787f18010d
commit 9501b9b198
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/vc/log-view.el
View file

@ -367,7 +367,7 @@ marked revisions."
;; This is used to check if the overlay is present.
(overlay-put ov 'log-view-self ov)
(overlay-put ov 'log-view-marked (nth 1 entry)))))
(forward-line 1)))
(log-view-msg-next 1)))
(defun log-view-unmark-entry ()
"Unmark the log entry at point.
@ -376,7 +376,7 @@ See `log-view-mark-entry'."
(when-let* ((entry (log-view-current-entry)))
(when-let* ((found (get-char-property (car entry) 'log-view-self)))
(delete-overlay found))
(forward-line 1)))
(log-view-msg-next 1)))
;;;###autoload
(defun log-view-get-marked ()