From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 11 Feb 1994 21:07:59 +0000 (+0000)
Subject: (perform-replace): Check for empty stack.
X-Git-Tag: emacs-19.34~9946
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=237e6ab0561e86e787b2ccd129f009aa06d81c27;p=emacs.git

(perform-replace): Check for empty stack.
---

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))