Re: Kill other buffers

["Andreas Röhler" <andreas.roehler@online.de>]

Kevin Rodgers wrote:

> Pedro Sa da Costa wrote:
>> Suppose that i have 3 files opened in emacs.
>> 
>> Now, i'm in file 1 and i want to close file 2 and file 3. There is any
>> short- key to close (kill) other buffers opened, while i'm in file 1?
> 
> Try `M-x electric-buffer-list'.  I prefer it to list-buffers, so I
> override the default binding:
> 
> (global-set-key "\C-x\C-b" 'electric-buffer-list)
> 

Right, or try that:

(defun kill-all-buffers (&optional arg)
  "with arg, save all buffers before deleting them"
  (interactive "P")
  (if arg
      (save-some-buffers))
  (let ((pufferliste (buffer-list)))
    (while pufferliste
      (progn
        (if (not (equal (car pufferliste) (current-buffer)))
            (kill-buffer (car pufferliste)))
        (setq pufferliste (cdr pufferliste))))))

;; make a key at `C-c k' 
(global-set-key "\C-ck" 'kill-all-buffers)

ar