[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Kill other buffers
From: |
Andreas Röhler |
Subject: |
Re: Kill other buffers |
Date: |
Mon, 12 Dec 2005 21:35:30 +0100 |
User-agent: |
KNode/0.9.2 |
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