Re: How to modify 'write-file'

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

"richard.christensen" <richard.christensen@avagotech.com> writes:

> 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__
>
> Hi,  I am missing something.  When I C-x w on a buffer, I see no
> different behavior.  The current path is there but not the buffer
> name. I did eval-region first.

You have to replace the interactive form in the write-file definition
and eval-region the write-file defun.

interactive alone doesn't do anything.

-- 
__Pascal Bourguignon__