(defun switch-to-scratch-buffer ()