[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/el-search d909f2e 260/332: [el-search] Follow-ups to tr
From: |
Stefan Monnier |
Subject: |
[elpa] externals/el-search d909f2e 260/332: [el-search] Follow-ups to transient map handling |
Date: |
Tue, 1 Dec 2020 15:48:59 -0500 (EST) |
branch: externals/el-search
commit d909f2eab66022a5e5444abdf56973de363128cc
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>
[el-search] Follow-ups to transient map handling
This fixes the transient map being still active when hitting the first
key after 'el-search-jump-to-search-head' or
'el-search-skip-directory' prompt for minibuffer input.
Bump version to 1.7.6.
(el-search-keep-transient-map-commands): Remove
'el-search-jump-to-search-head' and 'el-search-skip-directory' from
the list.
(el-search-jump-to-search-head, el-search-skip-directory):
Unconditionally call 'el-search-prefix-key-maybe-set-transient-map'.
(el-search--entering-prefix-arg-p): New helper function.
(el-search-hl-post-command-fun): Use it.
---
el-search.el | 29 +++++++++++++++--------------
1 file changed, 15 insertions(+), 14 deletions(-)
diff --git a/el-search.el b/el-search.el
index 51ef299..43c43c9 100644
--- a/el-search.el
+++ b/el-search.el
@@ -7,7 +7,7 @@
;; Created: 29 Jul 2015
;; Keywords: lisp
;; Compatibility: GNU Emacs 25
-;; Version: 1.7.5
+;; Version: 1.7.6
;; Package-Requires: ((emacs "25") (stream "2.2.4") (cl-print "1.0"))
@@ -545,12 +545,13 @@ The default value is ask-multi."
)
(defvar el-search-keep-transient-map-commands
+ ;; Commands that may read input (`el-search-jump-to-search-head',
+ ;; `el-search-skip-directory') need to be omitted here and should
+ ;; explicitly install the transient map themselves.
'(el-search-pattern
el-search-pattern-backward
- el-search-jump-to-search-head
el-search-from-beginning
el-search-last-buffer-match
- el-search-skip-directory
el-search-continue-in-next-buffer
universal-argument universal-argument-more
digit-argument negative-argument)
@@ -635,6 +636,10 @@ The non-nil value should be one of the symbols `forward'
and
"Ignore the arguments and return t."
t)
+(defun el-search--entering-prefix-arg-p ()
+ "Non-nil while a prefix arg is entered."
+ (memq universal-argument-map overriding-terminal-local-map))
+
(defun el-search--bounds-of-defun (&optional pos)
"Return (BEG . END) of the top level s-exp covering POS.
POS defaults to point. If no sexp is covering POS, return
@@ -2241,13 +2246,8 @@ local binding of `window-scroll-functions'."
(defun el-search-hl-post-command-fun ()
(pcase this-command
('el-search-query-replace)
- ('el-search-pattern
- (unless
- ;; When entering a numerical prefix `this-command' isn't updated. We
- ;; test for this condition (is there a better one?) to avoid that key
- ;; input feedback is hidden
- (memq universal-argument-map overriding-terminal-local-map)
- (el-search-display-match-count)))
+ ((guard (el-search--entering-prefix-arg-p))) ; don't hide key input
feedback
+ ('el-search-pattern (el-search-display-match-count))
((pred el-search-keep-session-command-p))
(_ (unless el-search-keep-hl
(el-search-hl-remove)
@@ -2383,12 +2383,12 @@ make current."
(setf (el-search-object-last-match el-search--current-search)
(copy-marker (point)))
(el-search-hl-sexp)
- (el-search-hl-other-matches (el-search--current-matcher))
- (el-search-prefix-key-maybe-set-transient-map)))))
+ (el-search-hl-other-matches (el-search--current-matcher))))))
(el-search--message-no-log "[Search completed - restarting]")
(sit-for 1.5)
(el-search-reset-search el-search--current-search)
- (el-search-continue-search)))
+ (el-search-continue-search))
+ (el-search-prefix-key-maybe-set-transient-map))
(defun el-search-continue-search (&optional from-here)
"Continue or resume the current search.
@@ -2488,7 +2488,8 @@ continued."
(or (bufferp buffer-or-file-name)
;; `file-in-directory-p' would be perfect here, but it calls
;; file-truename on both args what we don't want, so we use this:
- (string-match-p "\\`\\.\\." (file-relative-name buffer-or-file-name
directory))))))
+ (string-match-p "\\`\\.\\." (file-relative-name buffer-or-file-name
directory)))))
+ (el-search-prefix-key-maybe-set-transient-map))
(defun el-search-pattern--interactive (&optional prompt)
(list (if (or
- [elpa] externals/el-search 70634b7 298/332: [el-search] Avoid bytecomp warning windows pop up, (continued)
- [elpa] externals/el-search 70634b7 298/332: [el-search] Avoid bytecomp warning windows pop up, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 22c2f25 297/332: [el-search] Display colored defun match count, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 061464c 303/332: [el-search] Improvise eldoc support for search pattern prompt, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 9f4a9e5 310/332: [el-search] Improve "Make replacement editable and ediff'able", Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 3da4529 316/332: [el-search] Minor tweaks and version bump, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search e96c51e 319/332: [el-search] Key syntax cleanup, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search f091ed5 320/332: [el-search] Prefer rx forms to stringish regexps, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 47ee6b1 226/332: Improve working of `el-search-kill-left-over-search-buffers', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search e21a53d 240/332: [el-search] Use current buffer to check for matches in replacement, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 188fb4a 259/332: [el-search] Minor tweaks and bump version to 1.7.5, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search d909f2e 260/332: [el-search] Follow-ups to transient map handling,
Stefan Monnier <=
- [elpa] externals/el-search d9950e1 264/332: [el-search] Fix nested match issues in *El Occur*, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search d9b2ff6 257/332: [el-search] Extend meaning of C-J prefix arg, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 656869c 235/332: * el-search/el-search.el: Fix heuristic matcher for 'nil, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search adbf76d 262/332: [el-search] Open invisible text, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 60ad12e 268/332: [el-search] Small fix in el-search--reset-wrap-flag, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 73a15d2 274/332: [el-search] Stop for problematic comments, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 4961830 273/332: [el-search] Make replacement editable and ediff'able, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search da1f46b 282/332: [el-search] Make mouse clicks not abort the search, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 2a098da 293/332: [el-search] Unify go-to-previous/next-match key bindings, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search d4f8b3b 289/332: [el-search] Tweak my last commit "Add menus", Stefan Monnier, 2020/12/01