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

Unbreak track-changes in Emacs 24

Browse source 
* lisp/emacs-lisp/track-changes.el (track-changes--after): Don't use
'incf', added in Emacs 31; this :core package supports Emacs 24.
This commit is contained in:
Stefan Kangas 2025-03-12 01:15:07 +01:00
parent 77b7e2d37b
commit 523f792457
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -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