better jao-buffer-same-mode interactivity

1 files changed, 8 insertions, 3 deletions

diff --git a/init.el b/init.el
index b6c0765..bc67e0b 100644
--- a/init.el
+++ b/init.el
@@ -1185,7 +1185,7 @@
 
 ;;;; same mode
 (defun jao-buffer-same-mode (&optional mode pre-fn switch-fn)
-  (interactive "P")
+  (interactive)
   (let* ((mode (or mode major-mode))
          (modes (if (symbolp mode) (list mode) mode))
          (pred `(lambda (b)
@@ -1194,8 +1194,13 @@
                             ',modes))))
          (buff (read-buffer "Buffer: " nil t pred)))
     (when pre-fn (funcall pre-fn))
-    (if switch-fn (funcall switch-fn buff) (pop-to-buffer buff))))
-(global-set-key (kbd "C-c C-b") #'jao-buffer-same-mode)
+    (if switch-fn (funcall switch-fn buff) (switch-to-buffer buff))))
+
+(defun jao-buffer-same-mode-cmd (&optional pop)
+  (interactive "P")
+  (jao-buffer-same-mode nil nil (and pop #'pop-to-buffer)))
+
+(global-set-key (kbd "C-x C-b") #'jao-buffer-same-mode-cmd)
 
 ;;;; projects
 (use-package project :demand t)