home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / mutt / backup.mut < prev    next >
Text File  |  1988-08-11  |  580b  |  21 lines
  1.     ; Make a back when trying to save
  2.     ; Note: Make sure you add (init-backup) to buffer-created-hook
  3.     ; Usually (bind-to-key "backup-then-save" "^X^S")
  4.     ; C Durland
  5. (defun
  6.   backup-then-save
  7.   {
  8.     (string bname 100)
  9.     (if (and (!= (buffer-var 9) 0)(buffer-modified -1)(!= (file-name) ""))
  10.     {
  11.       (bname (file-name))
  12.       (RE-string '\([^.]*\)' (buffer-name -1))
  13.       (bname (concat "/" (get-matched '\1') ".BAK"))
  14.       (write-file bname)(buffer-modified -1 TRUE)
  15.       (buffer-var 9 0)
  16.     })
  17.     (save-buffer)
  18.   }
  19.   init-backup {(buffer-var 9 1)}
  20. )
  21.