|
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
[Prev in Thread] | Current Thread | [Next in Thread] |