From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Sun, 29 Nov 2015 22:04:33 +0000 (+0000)
Subject: * lisp/isearch.el (isearch-search-fun-default): Nicer error
X-Git-Tag: emacs-25.0.90~591
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d976561ba29a0de87b692fb985aebe68f3645cdc;p=emacs.git

* lisp/isearch.el (isearch-search-fun-default): Nicer error

message when the search fails.
---

diff --git a/lisp/isearch.el b/lisp/isearch.el
index eb5e5baf0b9..6cbe612d72e 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -2643,16 +2643,23 @@ Can be changed via `isearch-search-fun-function' for special needs."
                                        (isearch-regexp isearch-regexp-lax-whitespace)
                                        (t isearch-lax-whitespace))
                                   search-whitespace-regexp)))
-      (funcall
-       (if isearch-forward #'re-search-forward #'re-search-backward)
-       (cond (isearch-regexp-function
-              (let ((lax (isearch--lax-regexp-function-p)))
-                (if (functionp isearch-regexp-function)
-                    (funcall isearch-regexp-function string lax)
-                  (word-search-regexp string lax))))
-             (isearch-regexp string)
-             (t (regexp-quote string)))
-       bound noerror count))))
+      (condition-case er
+          (funcall
+           (if isearch-forward #'re-search-forward #'re-search-backward)
+           (cond (isearch-regexp-function
+                  (let ((lax (isearch--lax-regexp-function-p)))
+                    (if (functionp isearch-regexp-function)
+                        (funcall isearch-regexp-function string lax)
+                      (word-search-regexp string lax))))
+                 (isearch-regexp string)
+                 (t (regexp-quote string)))
+           bound noerror count)
+        (search-failed
+         (signal (car er)
+                 (let ((prefix (get isearch-regexp-function 'isearch-message-prefix)))
+                   (if (and isearch-regexp-function (stringp prefix))
+                       (list (format "%s   [using %ssearch]" string prefix))
+                     (cdr er)))))))))
 
 (defun isearch-search-string (string bound noerror)
   "Search for the first occurrence of STRING or its translation.