make-manual-backup

make-manual-backup

[weber]

Hi all!
I just wrote this function to make a backup of the current file, but
I'm not happy with the solution I used: I have this second write-file
to return to the original file.
Is there a better (probably also faster) way?
Thanks in advance,
weber

(defun make-manual-backup ()
  "Save a copy without changing to new filename.
Useful for making a copy of working file in development."
  (interactive)
  (let ((old-filename (buffer-file-name))
        (new-filename (concat (buffer-file-name) (format-time-string
"%Y%m%d_%Hh%M"))))
    (write-file new-filename)
    (write-file old-filename)
    (message (concat "Wrote backup " new-filename))))

Re: make-manual-backup

[Joost Kremers]

weber wrote:
> I just wrote this function to make a backup of the current file, but
> I'm not happy with the solution I used: I have this second write-file
> to return to the original file.
> Is there a better (probably also faster) way?

it's better to use write-region: that doesn't change the buffer's
association with the file.

-- 
Joost Kremers                                      joostkremers@yahoo.com
Selbst in die Unterwelt dringt durch Spalten Licht
EN:SiS(9)