martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(delete-selection-repeat-replace-region): Partial fix for bug#80216

Browse Source 
* lisp/delsel.el (delete-selection-repeat-replace-region): Clarify the
need for `delete-selection-save-to-register`.
This commit is contained in:
Stefan Monnier
2026-03-17 12:40:22 -04:00
parent fdfe617e73
commit dd264fb439
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/delsel.el
View File

@@ -193,10 +193,13 @@ the active region is killed instead of deleted."
Search for the next stretch of text identical to the region last replaced
by typing text over it and replaces it with the same stretch of text.
With ARG (interactively, prefix numeric argument), repeat that many times.
Just `\\[universal-argument]' means repeat until the end of the buffer's accessible portion."
Just `\\[universal-argument]' means repeat until the end of the buffer's accessible portion.
This function requires the last replacement to be available in a register,
so it does not work when `delete-selection-save-to-register' is nil."
(interactive "P")
(let ((old-text (and delete-selection-save-to-register
(get-register delete-selection-save-to-register)))
(unless delete-selection-save-to-register
(user-error "Can't work without delete-selection-save-to-register"))
(let ((old-text (get-register delete-selection-save-to-register))
(count (if (consp arg) (point-max)
(prefix-numeric-value current-prefix-arg))))
(if (not (and old-text (> (length old-text) 0)))