1 ;;; -*- lexical-binding: t -*-
3 (setq initial-scratch-message nil)
4 (setq initial-major-mode 'emacs-lisp-mode)
6 (defun my/scratch-buffer ()
7 "Create a new scratch buffer to work in. (could be *scratch* - *scratchX*)"
12 (setq bufname (concat "*scratch"
13 (if (= n 0) "" (int-to-string n))
16 (get-buffer bufname)))
17 (switch-to-buffer (get-buffer-create bufname))
18 (funcall initial-major-mode)))