[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/isearch-mb fccf1b7 08/20: Fix post-command hook for the
From: |
Stefan Monnier |
Subject: |
[elpa] externals/isearch-mb fccf1b7 08/20: Fix post-command hook for the failed search case |
Date: |
Sun, 16 May 2021 17:21:13 -0400 (EDT) |
branch: externals/isearch-mb
commit fccf1b7b3fb7b6735db099d6ef71424f37d09617
Author: Augusto Stoffel <arstoffel@gmail.com>
Commit: Augusto Stoffel <arstoffel@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)))
- [elpa] externals/isearch-mb 5d5b0e9 17/20: Replace advices by let-bindings where possible, (continued)
- [elpa] externals/isearch-mb 5d5b0e9 17/20: Replace advices by let-bindings where possible, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb a663c22 16/20: Better place to check if Isearch is still active, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb dc603a9 03/20: Lazily highlight the whole buffer, to avoid missing overlays, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb 40add97 01/20: Initial commit, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb 8566108 02/20: Many changes, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb 223b1b9 04/20: Introduce a buffer-local minor mode, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb 5805f13 07/20: Add keybinding for newline, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb d075efe 06/20: Rename minor modes, move a test to the timer function, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb 9f11fda 05/20: Several improvements, reorganization, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb a8d2a15 10/20: Provide future history, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb fccf1b7 08/20: Fix post-command hook for the failed search case,
Stefan Monnier <=
- [elpa] externals/isearch-mb 01fdc36 19/20: Update Readme, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb c38032c 09/20: Display error messages occurring at the beginning of search, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb 4aa89c1 13/20: Define only a global minor mode., Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb 0b58b14 14/20: Require cl-lib when compiling, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb c491220 11/20: Use after-change-functions, Stefan Monnier, 2021/05/16
- [elpa] externals/isearch-mb c270809 20/20: Pad lazy count so that it only grows, Stefan Monnier, 2021/05/16