diff options
Diffstat (limited to 'init.el')
-rw-r--r-- | init.el | 11 |
1 files changed, 8 insertions, 3 deletions
@@ -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) |