# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 761000879 0
# Node ID a068f8b61f2abb901a9aea7223a5f63fb39a27ce
# Parent  7f95b8e1ec4428242c550c0a50217b9d063dceac
(perform-replace): Check for empty stack.

diff -r 7f95b8e1ec44 -r a068f8b61f2a lisp/replace.el
--- a/lisp/replace.el	Fri Feb 11 19:06:00 1994 +0000
+++ b/lisp/replace.el	Fri Feb 11 21:07:59 1994 +0000
@@ -514,12 +514,16 @@
 		       (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))