Re: How to modify 'write-file'

[richard.christensen]

Thanks.  I'll give this a try.

On Apr 10, 12:00 pm, p...@informatimago.com (Pascal J. Bourguignon)
wrote:
> "richard.christensen" <richard.christen...@avagotech.com> writes:
> > Hi,  I write and modify many files with long names in which I need to
> > save the changed file to a similar name as the original but with a few
> > letters or numbers changed. A useful modification to write-file would
> > be to have the current file name to be placed in the minibuffer along
> > with the path when write-file is called. Then modifying the name would
> > be simple.  How would I do this?  Ideas?
>
> Add the (buffer-name) as initial value to the first call to
> read-file-name:
>
>   (interactive
>    (list (if buffer-file-name
>              (read-file-name "Write file: " default-directory
>                              (expand-file-name
>                               (file-name-nondirectory (buffer-name))
>                               default-directory)
>                              nil
>                               (buffer-name))
>              (read-file-name "Write file: " default-directory
>                              (expand-file-name
>                               (file-name-nondirectory (buffer-name))
>                               default-directory)
>                              nil nil))
>          (not current-prefix-arg)))
> --
> __Pascal Bourguignon__