Re: Killing Buffers

[Kevin Rodgers <ihs_4664@yahoo.com>]

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