writing a file to disc

writing a file to disc

[rahed]

Hi,

I have a file in a buffer and want to write it (C-x C-w) to disc under a
different name. At the same time I want to leave in the
buffer only the original one.

Is there a some simple key binding to do it?

-- 
Radek

Re: writing a file to disc

[Peter Dyballa]

Am 28.11.2007 um 14:17 schrieb rahed:

> Is there a some simple key binding to do it?

No. Not yet.

--
Greetings
                                  <]
    Pete      o        __o         |__    o           recumbo
     ___o    /I       -\<,         |o \  -\),-%       ergo sum!
___/\ /\___./ \___...O/ O____.....`-O-'-()--o_________________

Re: writing a file to disc

[Kevin Rodgers]

rahed wrote:
> Hi,
> 
> I have a file in a buffer and want to write it (C-x C-w) to disc under a
> different name. At the same time I want to leave in the
> buffer only the original one.
> 
> Is there a some simple key binding to do it?

How about:

(defun clone-file (filename)
   "Clone the current buffer and write the new buffer into file FILENAME."
   (interactive "FWrite file: ")
   (let* ((buffer-file-name nil))
     (with-current-buffer (clone-buffer nil (interactive-p))
       (write-file filename (interactive-p)))))

(global-set-key "\C-xW" 'clone-file)

-- 
Kevin Rodgers
Denver, Colorado, USA

Re: writing a file to disc

[rahed]

Kevin Rodgers <kevin.d.rodgers@gmail.com> writes:

> (defun clone-file (filename)
>   "Clone the current buffer and write the new buffer into file FILENAME."
>   (interactive "FWrite file: ")
>   (let* ((buffer-file-name nil))
>     (with-current-buffer (clone-buffer nil (interactive-p))
>       (write-file filename (interactive-p)))))
>
> (global-set-key "\C-xW" 'clone-file)

It makes two buffers, a new one and the original. I don't know
lisp, could you possibly trim it so that only the original occupy the
buffer?

Many thanks.

-- 
Radek

Re: writing a file to disc

[Scott Frazer]

On Nov 28, 1:32 pm, rahed <rah...@gmail.com> wrote:
> Kevin Rodgers <kevin.d.rodg...@gmail.com> writes:
> > (defun clone-file (filename)
> >   "Clone the current buffer and write the new buffer into file FILENAME."
> >   (interactive "FWrite file: ")
> >   (let* ((buffer-file-name nil))
> >     (with-current-buffer (clone-buffer nil (interactive-p))
> >       (write-file filename (interactive-p)))))
>
> > (global-set-key "\C-xW" 'clone-file)
>
> It makes two buffers, a new one and the original. I don't know
> lisp, could you possibly trim it so that only the original occupy the
> buffer?
>
> Many thanks.

My newsreader was acting funny, so sorry if this is a duplicate.

(defun clone-file (filename)
  "Clone the current buffer and write it into FILENAME."
  (interactive "FClone to file: ")
  (let ((buffer-file-name nil))
    (kill-buffer (with-current-buffer (clone-buffer)
                   (write-file filename (interactive-p))
                   (current-buffer)))))

Re: writing a file to disc

[rahed]

Scott Frazer <frazer.scott@gmail.com> writes:

> My newsreader was acting funny, so sorry if this is a duplicate.
>
> (defun clone-file (filename)
>   "Clone the current buffer and write it into FILENAME."
>   (interactive "FClone to file: ")
>   (let ((buffer-file-name nil))
>     (kill-buffer (with-current-buffer (clone-buffer)
>                    (write-file filename (interactive-p))
>                    (current-buffer)))))

Thank you (and others).

-- 
Radek

Re: writing a file to disc

[Johan Bockgård]

Kevin Rodgers <kevin.d.rodgers@gmail.com> writes:

>   (let* ((buffer-file-name nil))
>     (with-current-buffer (clone-buffer nil (interactive-p))
>       (write-file filename (interactive-p)))))

    (save-restriction
      (widen)
      (write-region (point-min) (point-max) filename
                    nil nil nil CONFIRM))

-- 
Johan Bockgård

Re: writing a file to disc

[Stefan Monnier]

> I have a file in a buffer and want to write it (C-x C-w) to disc under a
> different name. At the same time I want to leave in the
> buffer only the original one.

> Is there a some simple key binding to do it?

C-x h M-x write-region RET


        Stefan