Re: Killing Buffers

[Kevin Rodgers]

Brian Palmer wrote:
> Bruce Ingalls <bingalls@fit-zones.NO-SPAM.com> writes:
>>Brian Palmer wrote:
>>>(defun kill-all-other-buffer-frames (&optional prefix)
>>
>>Thanks for pointing out inelegancies in the code. Unfortunately, your
>>changes always leave the *scratch* buffer, and never the current
>>buffer. :(
>
> Sorry 'bout that. It's as simple as changing, in
> kill-all-other-buffer-frames
> (buffers-to-kill (buffer-list)))
> to
> (buffers-to-kill (mapcar 'buffer-name (buffer-list))))

How could that have any effect?  Each element of buffers-to-kill is
passed directly to kill-buffer, which handles a buffer or a buffer name
the same.  And if you used buffers instead of names, you could use delq
instead of delete.

On a stylistic note, you use setf from the Common Lisp compatibility
library, but call mapcar without side effect instead of using the
(CL-inspired) mapc built-in function.

> (Tested and verified).
>
> (defun kill-all-other-buffer-frames (&optional prefix)
>   "Close other open files, and kill other frames and windows.  With
> prefix argument, kill all buffers, leaving only the default *scratch*
> buffer."
>    (interactive "P")
>    (let ((cur-buf-name (buffer-name))
>          (buffers-to-kill (mapcar 'buffer-name (buffer-list))))
>      (if (null prefix)
>        (setf buffers-to-kill (delete cur-buf-name buffers-to-kill)))
>
>      (mapcar 'delete-frame (cdr (visible-frame-list)))
>      (or (one-window-p)
>          (delete-window))
>      (mapcar 'kill-buffer buffers-to-kill)
>      (delete-other-windows)))

--
Kevin Rodgers