mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(perform-replace): Check for empty stack.

Browse Source
This commit is contained in:
Karl Heuer 1994-02-11 21:07:59 +00:00
parent dd24e6a699
commit 237e6ab056
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/replace.el
View File

@ -514,12 +514,16 @@ which will run faster and probably do exactly what you want."
(setq keep-going nil)
(setq done t))
((eq def 'backup)
(let ((elt (car stack)))
(goto-char (car elt))
(setq replaced (eq t (cdr elt)))
(or replaced
(store-match-data (cdr elt)))
(setq stack (cdr stack))))
(if stack
(let ((elt (car stack)))
(goto-char (car elt))
(setq replaced (eq t (cdr elt)))
(or replaced
(store-match-data (cdr elt)))
(setq stack (cdr stack)))
(message "No previous match")
(ding 'no-terminate)
(sit-for 1)))
((eq def 'act)
(or replaced
(replace-match next-replacement nocasify literal))