[elpa] master 3775f37: [el-search] Tweak 'display-buffer' actions

[Michael Heerdegen]

branch: master
commit 3775f377da762cd876e4609503618f99e149a0f2
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    [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.
---
 packages/el-search/el-search.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 27fc93d..e0705d7 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/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