[elpa] externals/ebdb a629bde 236/350: Last tweak to pop-up buffers

[Eric Abrahamsen]

branch: externals/ebdb
commit a629bdefc5e226fa5da75a8ebefa1446164c2235
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Last tweak to pop-up buffers
    
    * ebdb-com.el (ebdb-pop-up-window): If we're doing it manually, "buf"
      needs to go in as a buffer object, not a string. This might get
      fixed in master, but use `get-buffer' anyway. It's also necessary to
      add a call to `set-window-prev-buffers', so that the window history
      is nil, and it will be killed when the buffer is quit.
---
 ebdb-com.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ebdb-com.el b/ebdb-com.el
index 33eebf9..8b93b76 100644
--- a/ebdb-com.el
+++ b/ebdb-com.el
@@ -994,7 +994,8 @@ longest way.  If SPLIT is nil, split 0.5.
 
 If the whole POP argument is nil, just re-use the current
 buffer."
-  (let* ((split-window (car-safe pop))
+  (let* ((buf (get-buffer buf))
+        (split-window (car-safe pop))
         (buffer-window (get-buffer-window buf t))
         (horiz/vert (or (caddr pop)
                         (if (> (window-total-width split-window)
@@ -1027,6 +1028,7 @@ buffer."
                                               'right)))
           (set-window-buffer buffer-window buf)))
     (display-buffer-record-window 'window buffer-window buf)
+    (set-window-prev-buffers buffer-window nil)
     (when select
       (select-window buffer-window))))