From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 3 Feb 2025 20:50:36 +0000 (-0500)
Subject: * lisp/emacs-lisp/track-changes.el (track-changes-fetch): Fix bug#75906
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~62
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=1c3a8bc9b51cf89fc1eff181d39941d7f0c7b2e2;p=emacs.git

* lisp/emacs-lisp/track-changes.el (track-changes-fetch): Fix bug#75906
---

diff --git a/lisp/emacs-lisp/track-changes.el b/lisp/emacs-lisp/track-changes.el
index 3f3b8d7bed9..1aac53b5f33 100644
--- a/lisp/emacs-lisp/track-changes.el
+++ b/lisp/emacs-lisp/track-changes.el
@@ -364,7 +364,9 @@ and re-enable the TRACKER corresponding to ID."
                              track-changes--state))
               ;; Nothing to do.
               nil)
-          (cl-assert (not (memq id track-changes--clean-trackers)))
+          ;; ID may still be in `track-changes--clean-trackers' if
+          ;; `after-change-functions' was skipped.
+          ;;(cl-assert (not (memq id track-changes--clean-trackers)))
           (cl-assert (<= (point-min) beg end (point-max)))
           ;; Update the tracker's state *before* running `func' so we don't risk
           ;; mistakenly replaying the changes in case `func' exits non-locally.