From 0dc0ccc63e7e7d866da3c770824dee48783a4cda Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 25 Jun 2018 19:35:59 +0200 Subject: [PATCH] Refactor +popup*org-pop-to-buffer Simplify pop-to-buffer call. --- modules/ui/popup/+hacks.el | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/modules/ui/popup/+hacks.el b/modules/ui/popup/+hacks.el index 1314d5f6d..b8c4fb0cc 100644 --- a/modules/ui/popup/+hacks.el +++ b/modules/ui/popup/+hacks.el @@ -234,10 +234,7 @@ instead of switch-to-buffer-*." (defun +popup*org-pop-to-buffer (orig-fn buf &optional norecord) "Use `pop-to-buffer' instead of `switch-to-buffer' to open buffer.'" (if +popup-mode - (pop-to-buffer - (cond ((stringp buf) (get-buffer-create buf)) - ((bufferp buf) buf) - (t (error "Invalid buffer %s" buf)))) + (pop-to-buffer buf nil norecord) (funcall orig-fn buf norecord))) (advice-add #'org-switch-to-buffer-other-window :around #'+popup*org-pop-to-buffer)