Re: How to modify 'write-file'

[pjb@informatimago.com (Pascal J. Bourguignon)]

"richard.christensen" <richard.christensen@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__