X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/018be26a1a1851e7f7f92cb0289b0c30c329aa1c..81fc9a7c28f5f120fc0e4a121902475bd5c2bfeb:/lisp/ibuffer.el

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index dd2687c4d8..609524ccd2 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -2341,7 +2341,8 @@ FORMATS is the value to use for `ibuffer-formats'.
     (setq other-window-p t))
   (let ((buf (get-buffer-create (or name "*Ibuffer*"))))
     (if other-window-p
-	(funcall (if noselect (lambda (buf) (display-buffer buf t)) #'pop-to-buffer) buf)
+	(or (and noselect (display-buffer buf t))
+	    (pop-to-buffer buf t))
       (funcall (if noselect #'display-buffer #'switch-to-buffer) buf))
     (with-current-buffer buf
       (save-selected-window