From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 11 Jan 2001 15:31:12 +0000 (+0000)
Subject: (isearch-search): In the condition-case handler for
X-Git-Tag: emacs-pretest-21.0.96~350
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c5348233d2efc2cf1a4d5d1afa9287a46c43c795;p=emacs.git

(isearch-search): In the condition-case handler for
`error', set isearch-invalid-regexp to the whole error message.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f4e7912766e..68f61071a54 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-01-11  Gerd Moellmann  <gerd@gnu.org>
 
+	* isearch.el (isearch-search): In the condition-case handler for
+	`error', set isearch-invalid-regexp to the whole error message.
+
 	* subr.el (eval-after-load): Call load-symbol-file-load-history to
 	ensure that eval-after-load works for files dumped with Emacs.
 
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 997cdc6aac9..251c85cf1e9 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1583,8 +1583,8 @@ If there is no completion possible, say so and continue searching."
 	  isearch-invalid-regexp)
 	 (setq isearch-invalid-regexp "incomplete input")))
     (error
-     ;; stack overflow in regexp search.
-     (setq isearch-invalid-regexp (car (cdr lossage)))))
+     ;; Stack overflow in regexp search, for instance.
+     (setq isearch-invalid-regexp (format "%s" lossage))))
 
   (if isearch-success
       nil