diff options
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index bf87d12c194..ab7f2b13ced 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -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)) |