[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Thu, 07 Jun 2007 19:27:37 -0000
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,
(defun make-manual-backup ()
"Save a copy without changing to new filename.
Useful for making a copy of working file in development."
(let ((old-filename (buffer-file-name))
(new-filename (concat (buffer-file-name) (format-time-string
(message (concat "Wrote backup " new-filename))))