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

Less generic error message

Browse source 
* lisp/subr.el (undo--wrap-and-run-primitive-undo): Use "Unexpected
change of region length" instead of "Not yet implemented".
This commit is contained in:
Helmut Eller 2026-08-07 15:37:08 +02:00
parent 1d07d02a75
commit cc0f94f357
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/subr.el
View file

@ -5756,7 +5756,7 @@ the function `undo--wrap-and-run-primitive-undo'."
"Call `primitive-undo' on the undo elements in LIST. "Call `primitive-undo' on the undo elements in LIST.
This function is intended to be called purely by `undo' as the This function is intended to be called purely by `undo' as the
function in an \(apply DELTA BEG END FUNNAME . ARGS) undo function in an \(apply DELTA (BEG . END) FUNNAME . ARGS) undo
element. It invokes `before-change-functions' and element. It invokes `before-change-functions' and
`after-change-functions' once each for the entire region \(BEG `after-change-functions' once each for the entire region \(BEG
END) rather than once for each individual change. END) rather than once for each individual change.
@ -5770,7 +5770,7 @@ Undo elements of this form are generated by the macro
(let* ((beg-delta (- orig-beg beg)) (let* ((beg-delta (- orig-beg beg))
(end-delta (- orig-end end)) (end-delta (- orig-end end))
(list (cond ((/= beg-delta end-delta) (list (cond ((/= beg-delta end-delta)
(error "Not yet implemented")) (error "Unexpected change of region length"))
((= beg-delta 0) ((= beg-delta 0)
list) list)
(t (t