emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 07:46:51 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

vc-dir--count-outgoing: Check overlay still exists

Browse source 
* lisp/vc/vc-dir.el (vc-dir--count-outgoing): Check overlay
still exists.
This commit is contained in:
Sean Whitton 2026-09-08 11:16:20 +01:00
parent 0791a547c0
commit ed6366876c
1 changed files with 13 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/vc/vc-dir.el
View file

@ -1521,14 +1521,19 @@ longer needed."
See `vc-dir-async-header-values' for an explanation of how this function
uses OVERLAY."
(cl-flet ((set-overlay-text (text)
(with-current-buffer (overlay-buffer overlay)
(save-excursion
(let ((inhibit-read-only t)
(start (overlay-start overlay)))
(delete-region start (overlay-end overlay))
(goto-char start)
(insert text)
(move-overlay overlay start (point)))))))
;; If `vc-dir--set-header' was called again before our
;; sentinel ran (either because we were still counting or
;; Emacs just hadn't run the sentinel yet) then the
;; overlay won't exist anymore.
(when-let* ((buffer (overlay-buffer overlay)))
(with-current-buffer buffer
(save-excursion
(let ((inhibit-read-only t)
(start (overlay-start overlay)))
(delete-region start (overlay-end overlay))
(goto-char start)
(insert text)
(move-overlay overlay start (point))))))))
(set-overlay-text (propertize "[counting ...]"
'face 'vc-dir-header-value))
;; `vc-incoming-outgoing-internal' invokes external processes