procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(track-changes--call-signal): Silence late signals

Browse source 
* lisp/emacs-lisp/track-changes.el (track-changes--call-signal):
Skip the call if the tracker was unregistered.
This commit is contained in:
Stefan Monnier 2024-04-19 22:19:00 -04:00
parent f62c1b4cd0
commit 71d2ec7aba
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/track-changes.el
View file

@ -364,7 +364,7 @@ and re-enable the TRACKER corresponding to ID."
(setf (track-changes--tracker-state id) track-changes--state)
(funcall func beg end (or before lenbefore)))
;; Re-enable the tracker's signal only after running `func', so
;; as to avoid recursive invocations.
;; as to avoid nested invocations.
(cl-pushnew id track-changes--clean-trackers))))
;;;; Auxiliary functions.
@ -578,8 +578,10 @@ Details logged to `track-changes--error-log'")
(defun track-changes--call-signal (buf tracker)
(when (buffer-live-p buf)
(with-current-buffer buf
;; Silence ourselves if `track-changes-fetch' was called in the mean time.
(unless (memq tracker track-changes--clean-trackers)
;; Silence ourselves if `track-changes-fetch' was called
;; or the tracker was unregistered in the mean time.
(when (and (not (memq tracker track-changes--clean-trackers))
(memq tracker track-changes--trackers))
(funcall (track-changes--tracker-signal tracker) tracker)))))
;;;; Extra candidates for the API.