Re: renewable scratch pad

[Joe Corneli]

This would make the function behave more like M-x shell: the scratch
buffer would always have lisp interaction mode enforced.  A more
advanced version might allow the user to change the mode in the
scratch buffer, and have that mode preserved when accessing the
buffer using this function. Not sure about how best to do that, so
this is where I'll leave it for now.

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