From 6dfdbc7d9159e6058f8a3848e27ed187a0da7a45 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 5 Sep 2022 15:35:42 +0100 Subject: better jao-buffer-same-mode interactivity --- init.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'init.el') 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) -- cgit v1.2.3