mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2026-09-10 07:46:51 -04:00
Less generic error message
* 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:
parent
1d07d02a75
commit
cc0f94f357
|
|
@ -5756,7 +5756,7 @@ the function `undo--wrap-and-run-primitive-undo'."
|
|||
"Call `primitive-undo' on the undo elements in LIST.
|
||||
|
||||
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
|
||||
`after-change-functions' once each for the entire region \(BEG
|
||||
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))
|
||||
(end-delta (- orig-end end))
|
||||
(list (cond ((/= beg-delta end-delta)
|
||||
(error "Not yet implemented"))
|
||||
(error "Unexpected change of region length"))
|
||||
((= beg-delta 0)
|
||||
list)
|
||||
(t
|
||||
|
|
|
|||
Loading…
Reference in a new issue