(perform-replace): Check for empty stack.

diff --git a/lisp/replace.el b/lisp/replace.el
index bf87d12c194fb09096bd29614a9f020e6aa8ec22..ab7f2b13ced2c9f2cfbb78f3c47e620455d2d6f0 100644 (file)
--- 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))