I needed to create a named buffer from some elisp code, and if that
buffer exists, clear it. I wrote this code to do it. But is this
something emacs can already do?
(defun get-buffer-create-and-clear(name)
(interactive "sName: ")
(let ((buffer (get-buffer-create name)))
(goto-line 1 buffer)
(delete-region (point-min) (point-max))
buffer))
justinhj
On Jan 6, 1:50 pm, justinhj <········@gmail.com> wrote:
> I needed to create a named buffer from some elisp code, and if that
> buffer exists, clear it. I wrote this code to do it. But is this
> something emacs can already do?
>
> (defun get-buffer-create-and-clear(name)
> (interactive "sName: ")
> (let ((buffer (get-buffer-create name)))
> (goto-line 1 buffer)
> (delete-region (point-min) (point-max))
> buffer))
>
> justinhj
Sorry, I missed. This was supposed to go to the emacs group.
justinhj
On Jan 6, 11:50 pm, justinhj <········@gmail.com> wrote:
> I needed to create a named buffer from some elisp code, and if that
> buffer exists, clear it. I wrote this code to do it. But is this
> something emacs can already do?
>
> (defun get-buffer-create-and-clear(name)
> (interactive "sName: ")
> (let ((buffer (get-buffer-create name)))
> (goto-line 1 buffer)
> (delete-region (point-min) (point-max))
> buffer))
>
> justinhj
I don't think that such function already exists.
An easier way write get-buffer-create-and clear:
(defun get-buffer-create-and-clear (name)
(switch-to-buffer (get-buffer-create name))
(erase-buffer))
Also, you may want to put this into your .emacs file:
(put 'erase-buffer 'disabled nil)
On Jan 6, 3:03 pm, blandest <··············@gmail.com> wrote:
> On Jan 6, 11:50 pm, justinhj <········@gmail.com> wrote:
>
> > I needed to create a named buffer from some elisp code, and if that
> > buffer exists, clear it. I wrote this code to do it. But is this
> > something emacs can already do?
>
> > (defun get-buffer-create-and-clear(name)
> > (interactive "sName: ")
> > (let ((buffer (get-buffer-create name)))
> > (goto-line 1 buffer)
> > (delete-region (point-min) (point-max))
> > buffer))
>
> > justinhj
>
> I don't think that such function already exists.
> An easier way write get-buffer-create-and clear:
>
> (defun get-buffer-create-and-clear (name)
> (switch-to-buffer (get-buffer-create name))
> (erase-buffer))
>
> Also, you may want to put this into your .emacs file:
>
> (put 'erase-buffer 'disabled nil)
Thanks!