[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/el-search 365f93f 197/332: * el-search/el-search.el: So
From: |
Stefan Monnier |
Subject: |
[elpa] externals/el-search 365f93f 197/332: * el-search/el-search.el: Some buffer display related minor tweaks |
Date: |
Tue, 1 Dec 2020 15:48:44 -0500 (EST) |
branch: externals/el-search
commit 365f93fcca4c1a92df0b9539f7f8d2f2ff42c82e
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>
* el-search/el-search.el: Some buffer display related minor tweaks
(el-search-jump-to-search-head): Use `redisplay' and `sleep-for' to
ensure the correct behavior when `pop-to-buffer' generated frame focus
events.
(el-search-occur-jump-to-match): Call `el-search--occur-button-action'
with an empty `display-buffer' action list.
(el-search--occur-button-action): Define with `cl-defun' to be able to
decide whether the DISPLAY-BUFFER-ACTION argument is specified.
(el-search--search-and-replace-pattern): Minor tweaks.
---
el-search.el | 27 ++++++++++++++++-----------
1 file changed, 16 insertions(+), 11 deletions(-)
diff --git a/el-search.el b/el-search.el
index 75ffd58..088c869 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.4.0.10
+;; Version: 1.4.0.11
;; Package-Requires: ((emacs "25") (stream "2.2.4"))
@@ -2008,7 +2008,10 @@ that the current search."
(el-search--current-matcher) t nil
(el-search--current-heuristic-matcher)))))
(unless (eq (point) match-pos)
(message "No match at search head any more - going to the next
match")
- (sit-for 1.5))
+ (redisplay)
+ ;; Don't just `sit-for' here: `pop-to-buffer' may have generated
frame
+ ;; focus events
+ (sleep-for 3))
(if (not match-pos)
(el-search-continue-search)
(goto-char match-pos)
@@ -2366,19 +2369,20 @@ Prompt for a new pattern and revert."
(goto-char pos)
(beginning-of-line)
(forward-line delta-lines))
- '((display-buffer-pop-up-window))))))))))
+ '()))))))))
-(defun el-search--occur-button-action
- (filename-or-buffer &optional match-pos do-fun display-buffer-action)
+(cl-defun el-search--occur-button-action
+ (filename-or-buffer &optional match-pos do-fun (display-buffer-action nil
action-specified))
(let ((buffer (if (bufferp filename-or-buffer)
filename-or-buffer
(find-file-noselect filename-or-buffer)))
(search-pattern (el-search-object-pattern
el-search-occur-search-object)))
- (with-selected-window (display-buffer buffer
- (or display-buffer-action
- (if match-pos
-
'((display-buffer-pop-up-window))
-
el-search-display-buffer-popup-action)))
+ (with-selected-window (display-buffer
+ buffer
+ (cond
+ (action-specified display-buffer-action)
+ (match-pos
'((display-buffer-pop-up-window)))
+ (t
el-search-display-buffer-popup-action)))
(when match-pos
(when (and (buffer-narrowed-p)
(or (< match-pos (point-min))
@@ -3069,7 +3073,7 @@ Toggle splicing mode (\\[describe-function]
el-search-query-replace for details)
;; FIXME: Should we allow to edit the
replacement?
(let* ((buffer (get-buffer-create
(generate-new-buffer-name "*Replacement*")))
- (window
(display-buffer-pop-up-window buffer ())))
+ (window (display-buffer
buffer)))
(with-selected-window window
(emacs-lisp-mode)
(save-excursion
@@ -3081,6 +3085,7 @@ Toggle splicing mode (\\[describe-function]
el-search-query-replace for details)
(read-char " "))
(delete-window window)
(kill-buffer buffer)
+ (el-search--after-scroll
(selected-window) (window-start))
nil))
((or ?q ?\C-g) (signal 'quit t))))))
(when replacement-contains-another-match
- [elpa] externals/el-search d54491c 147/332: Add a FILE argument to `el-search-dired-marked-files', (continued)
- [elpa] externals/el-search d54491c 147/332: Add a FILE argument to `el-search-dired-marked-files', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search a26b6e0 152/332: Reset wrap flag even when no match, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 6919e8d 141/332: Also count pattern types starting with "_" as internal, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search b8e3812 144/332: Improve half-baked introduction of key bindings, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search e96c054 156/332: Handle read errors when reading and validating replacement, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 6f0f22c 155/332: Some details, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 6e6013a 159/332: Fix and speed up the `change' pattern type, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search c878a24 173/332: Fix "Make amount of context around occur matches adjustable", Stefan Monnier, 2020/12/01
- [elpa] externals/el-search f6b1aec 180/332: Some details, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 8583d46 191/332: Fix resuming a single-buffer query-replace, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 365f93f 197/332: * el-search/el-search.el: Some buffer display related minor tweaks,
Stefan Monnier <=
- [elpa] externals/el-search c69dd52 205/332: * el-search/el-search.el: Some minor tweaks, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search c41288f 208/332: Make el-search key binding installation more flexible, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 8d20f8a 217/332: Add face `el-search-highlight-in-prompt-face', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 75f94f9 218/332: Improve quit/error handling in el-search-query-replace, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search b278fb7 219/332: Update a variable when splicing mode is toggled, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 8175417 237/332: * el-search/el-search.el: More minor tweaks, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 1f81442 241/332: [el-search] Improve forward search functions, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 5c3bd4e 247/332: [el-search] Add bindings for first/last match jumping, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 3699425 246/332: [el-search] Add command 'el-search-last-buffer-match', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search cf68daf 249/332: [el-search] Avoid most calls to 'scan-sexps', Stefan Monnier, 2020/12/01