chet@uwovax.uwo.ca (01/18/90)
; the next macro is not part of MicroEMACS 3.10 ; it stores a copy of the original file with extension .BAK ; every time a buffer is written to a disk file ; -- Chet Creider (creider@csd.uwo.ca) 22 store-macro set %dotpos &sin $cfname "." !if &equ %dotpos 0 set %cflen &len $cfname set %dotpos &add %cflen 1 !endif set %dotpos &sub %dotpos 1 set %backup &mid $cfname 1 %dotpos set %backup &cat %backup ".bak" set %oldfile &cat $cfname " " set %backup &cat %oldfile %backup shell-command &cat "copy " %backup save-file !endm bind-to-key execute-macro-22 ^X^S