Re: write-file like function help needed

["Juanma Barranquero" <lekktu@gmail.com>]

On 13 Dec 2006 12:37:17 -0800, keithv <kvetter@gmail.com> wrote:

> I need help writing a function that works like write-file but
> first modifies the file name by locating and incrementing
> any numbers in the file name. For example, if the buffer
> name is "test1.txt", repeatedly invoking this function
> would save files with the names "test2.txt", "test3.txt",
> "test4.txt", etc.

 (defun increment-file-name (filename)
   (replace-regexp-in-string "\\([0-9]+\\)[^0-9]*\\'"
                             #'(lambda (num)
                                 (number-to-string (1+ (string-to-number num))))
                             filename t t 1))

 (defadvice write-file (before write-file-increment activate compile)
   (ad-set-arg 0 (increment-file-name (ad-get-arg 0))))

                    /L/e/k/t/u