branch: externals/isearch-mb
commit fccf1b7b3fb7b6735db099d6ef71424f37d09617
Author: Augusto Stoffel <arstof...@gmail.com>
Commit: Augusto Stoffel <arstof...@gmail.com>
Fix post-command hook for the failed search case
---
isearch-mb.el | 12 ++++++++++--
1 file changed, 10 insertions(+), 2 deletions(-)
diff --git a/isearch-mb.el b/isearch-mb.el
index b6cf073..bf15b18 100644
--- a/isearch-mb.el
+++ b/isearch-mb.el
@@ -64,15 +64,23 @@
text isearch-string)
(delete-minibuffer-contents)
(insert isearch-string))
+ ;; Update search buffer
(unless (string-equal text isearch-string)
(let ((inhibit-redisplay t))
(with-minibuffer-selected-window
(setq isearch-string (substring-no-properties text))
(isearch-update-from-string-properties text)
- (if (get this-command 'isearch-mb--no-search)
+ ;; Backtrack to barrier and search, unless the `this-command'
+ ;; is special or the search regexp is invalid.
+ (if (or (get this-command 'isearch-mb--no-search)
+ (and isearch-regexp
+ (condition-case err
+ (prog1 nil (string-match-p isearch-string ""))
+ (invalid-regexp
+ (prog1 t (isearch-mb--message (cadr err)))))))
(isearch-update)
(goto-char isearch-barrier)
- (setq isearch-adjusted t isearch-yank-flag t)
+ (setq isearch-adjusted t isearch-success t)
(isearch-search-and-update))))))
(set-text-properties (minibuffer-prompt-end) (point-max) nil)
(when-let ((fail-pos (isearch-fail-pos)))
