mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(isearch-search): In the condition-case handler for

Browse Source 
`error', set isearch-invalid-regexp to the whole error message.
This commit is contained in:
Gerd Moellmann 2001-01-11 15:31:12 +00:00
parent 50ca4be0b9
commit c5348233d2
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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.

4
lisp/isearch.el
View File

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