[elpa] externals/el-search 424138b 307/332: [el-search] Tweak 'display-buffer' actions

[Stefan Monnier]

branch: externals/el-search
commit 424138bf7ba9c1cd58237001f4e39ab4d59804fd
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>

    [el-search] Tweak 'display-buffer' actions
    
    Try to make the default 'display-buffer' actions feel more natural.
    
    * packages/el-search/el-search.el
    (el-search-display-buffer-popup-action)
    (el-search-display-next-buffer-action): Change default.
    (el-search-jump-to-search-head): Use the
    'el-search-display-next-buffer-action' instead of the
    'el-search-display-buffer-popup-action' to display the head buffer.
---
 el-search.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/el-search.el b/el-search.el
index 27fc93d..e0705d7 100644
--- a/el-search.el
+++ b/el-search.el
@@ -528,13 +528,16 @@ is non-nil."
   "Face for highlighting important parts in prompts.")
 
 (defcustom el-search-display-buffer-popup-action
-  '((display-buffer-reuse-window display-buffer-pop-up-frame)
+  '((display-buffer-reuse-window display-buffer-same-window)
     (reusable-frames . visible))
   "`display-buffer' action used to display pop-up windows."
   :type display-buffer--action-custom-type)
 
 (defcustom el-search-display-next-buffer-action
-  '(display-buffer-same-window (inhibit-same-window . nil))
+  '((display-buffer-reuse-window
+     display-buffer-same-window)
+    (reusable-frames . visible)
+    (inhibit-same-window . nil))
   "Action used to display the next buffer in multi searches."
   :type display-buffer--action-custom-type)
 
@@ -2979,7 +2982,7 @@ make current."
             (sit-for 2)
             (el-search-continue-search))
         (setq this-command 'el-search-pattern)
-        (pop-to-buffer current-search-buffer 
el-search-display-buffer-popup-action)
+        (pop-to-buffer current-search-buffer 
el-search-display-next-buffer-action)
         (el-search-protect-search-head
          (let ((last-match (el-search-object-last-match search)))
            (cond