From b413da45164da0930c57907648c5846f1aa08f86 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 12 Mar 2025 01:15:07 +0100 Subject: [PATCH] Unbreak track-changes in Emacs 24 * lisp/emacs-lisp/track-changes.el (track-changes--after): Don't use 'incf', added in Emacs 31; this :core package supports Emacs 24. (cherry picked from commit 523f7924570ae339a9661c910cc99c41676d7349) --- lisp/emacs-lisp/track-changes.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/track-changes.el b/lisp/emacs-lisp/track-changes.el index b0d753e1cbd..c01d96ec6b8 100644 --- a/lisp/emacs-lisp/track-changes.el +++ b/lisp/emacs-lisp/track-changes.el @@ -599,14 +599,14 @@ Details logged to `track-changes--error-log'") (track-changes--trace) (cl-assert track-changes--state) (let ((offset (- (- end beg) len))) - (incf track-changes--buffer-size offset) + (cl-incf track-changes--buffer-size offset) (if (and (eq track-changes--before-clean 'unset) (not track-changes--before-no)) ;; This can be a sign that a `before-change-functions' went missing, ;; or that we called `track-changes--clean-state' between ;; a `before-change-functions' and `after-change-functions'. (track-changes--before beg end) - (incf track-changes--before-end offset)) + (cl-incf track-changes--before-end offset)) (setq track-changes--before-clean nil) (if (not (or track-changes--before-no (save-restriction -- 2.39.5