C-x C-c

C-x C-c

[tcp]

hi,

  Is there a way to map the C-x C-c to close all opened files and frame but
not exiting emacs.
  Thank!

---
tcp

Re: C-x C-c

[Kevin Rodgers]

tcp wrote:

>   Is there a way to map the C-x C-c to close all opened files and frame but
> not exiting emacs.

You asked for it:


(defun close-all-files ()
   "Kill all buffers that are visiting a file."
   (interactive)
   (let ((buffers (buffer-list)))
     (while buffers
       (if (buffer-file-name (car buffers))
	  (kill-buffer (car buffers)))
       (setq buffers (cdr buffers)))))

(define-key "\C-x\C-c"
   (lambda ()
     "Run `\\[close-all-files]' and `\\[delete-frame\\]'."
     (interactive)
     (close-all-files)
     (delete-frame)))

-- 
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;">Kevin Rodgers</a>

Re: C-x C-c

[tcp]

Hi Kevin,

Thanks. I have this problem when I add

the following two function into my .emacs

Wrong number of arguments: #<subr define-key>, 2

Also, if I have multiple frames up, it does not

seem to delete all the open frames.

Thanks!

"Kevin Rodgers" <kevin.rodgers@ihs.com> wrote in message
news:3E0894A8.6050506@ihs.com...
> tcp wrote:
>
> >   Is there a way to map the C-x C-c to close all opened files and frame
but
> > not exiting emacs.
>
> You asked for it:
>
>
> (defun close-all-files ()
>    "Kill all buffers that are visiting a file."
>    (interactive)
>    (let ((buffers (buffer-list)))
>      (while buffers
>        (if (buffer-file-name (car buffers))
>   (kill-buffer (car buffers)))
>        (setq buffers (cdr buffers)))))
>
> (define-key "\C-x\C-c"
>    (lambda ()
>      "Run `\\[close-all-files]' and `\\[delete-frame\\]'."
>      (interactive)
>      (close-all-files)
>      (delete-frame)))
>
> --
> <a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;">Kevin Rodgers</a>
>

Re: C-x C-c

[Kevin Rodgers]

[Please don't top-post.]

tcp wrote:

> Thanks. I have this problem when I add
> 
> the following two function into my .emacs
> 
> Wrong number of arguments: #<subr define-key>, 2


Oops, `define-key' should be `global-set-key'.


> Also, if I have multiple frames up, it does not
> 
> seem to delete all the open frames.

Oh, I interpreted "opened frame" to mean "selected frame".  Just put

	(delete-other-frames)

between

	(close-all-files)
and
	(delete-frame)

-- 
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;">Kevin Rodgers</a>