renewable scratch pad

[Joe Corneli]

This function provides a way to manage the scratch buffer in the
same way we're familiar with managing the shell buffer (and also
info, grep, etc.).  It is a very simple function to write, but I
think it should be included in Emacs to provide a more unified
look-n-feel.

(defun scratch ()
  "Access or create a notepad in the `*scratch*' buffer."
  (interactive)
  (let ((buffer (get-buffer-create "*scratch*")))
    (pop-to-buffer buffer)
  buffer))