gnu-emacs-sources
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: renewable scratch pad

From: Johan Bockgård
Subject: Re: renewable scratch pad
Date: Tue, 22 Jun 2004 21:49:35 +0200
User-agent: Gnus/5.110003 (No Gnus v0.3) Emacs/21.2 (usg-unix-v) 
Kevin Rodgers <address@hidden> writes:

> (defun scratch ()
>    "Select the `*scratch*' buffer."
>    (interactive)
>    (let ((buffer (get-buffer "*scratch*")))
>      (pop-to-buffer (or buffer (generate-new-buffer "*scratch*")))
>      (or buffer (funcall initial-major-mode))
>      buffer))

(defun scratch ()
  "Select the `*scratch*' buffer."
  (interactive)
  (pop-to-buffer "*scratch*"))

-- 
Johan Bockgård
reply via email to
[Prev in Thread] Current Thread [Next in Thread]