Function: get-scratch-buffer-create

get-scratch-buffer-create is a byte-compiled function defined in simple.el.gz.

Signature

(get-scratch-buffer-create)

Documentation

Return the *scratch* buffer, creating a new one if needed.

Source Code

;; Defined in /usr/src/emacs/lisp/simple.el.gz
(defun get-scratch-buffer-create ()
  "Return the *scratch* buffer, creating a new one if needed."
  (or (get-buffer "*scratch*")
      (let ((scratch (get-buffer-create "*scratch*")))
        ;; Don't touch the buffer contents or mode unless we know that
        ;; we just created it.
        (with-current-buffer scratch
          (when initial-scratch-message
            (insert (substitute-command-keys initial-scratch-message))
            (set-buffer-modified-p nil))
          (funcall initial-major-mode))
        scratch)))