From 352c76ca7287e6b17bcd70e88781a1a406ff7144 Mon Sep 17 00:00:00 2001 From: deb0ch Date: Sat, 10 Dec 2016 20:33:20 +0100 Subject: [PATCH] switch-to-scratch-buffer with prefix arg opens in other window --- layers/+distributions/spacemacs-base/funcs.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/layers/+distributions/spacemacs-base/funcs.el b/layers/+distributions/spacemacs-base/funcs.el index 79d8aa432..2ba04ae91 100644 --- a/layers/+distributions/spacemacs-base/funcs.el +++ b/layers/+distributions/spacemacs-base/funcs.el @@ -988,11 +988,13 @@ a split-side entry, its value must be usable as the SIDE argument for (let ((buffer (find-file-noselect file))) (pop-to-buffer buffer '(spacemacs//display-in-split (split-side . below))))) -(defun spacemacs/switch-to-scratch-buffer () +(defun spacemacs/switch-to-scratch-buffer (&optional arg) "Switch to the `*scratch*' buffer. Create it first if needed." - (interactive) + (interactive "P") (let ((exists (get-buffer "*scratch*"))) - (switch-to-buffer (get-buffer-create "*scratch*")) + (if arg + (switch-to-buffer-other-window (get-buffer-create "*scratch*")) + (switch-to-buffer (get-buffer-create "*scratch*"))) (when (and (not exists) (not (eq major-mode dotspacemacs-scratch-mode)) (fboundp dotspacemacs-scratch-mode))