/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / packages / auto-save.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 39 3a 30 34 3a 31 38 20 |Feb  1 1|9:04:18 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 70 61 63 | 6b 61 67 65 73 2f 61 75 |lisp/pac|kages/au|
|00000080| 74 6f 2d 73 61 76 65 2e | 65 6c 0a 3b 3b 3b 20 65 |to-save.|el.;;; e|
|00000090| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 31 39 2e |macs ver|sion 19.|
|000000a0| 34 2e 31 33 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |4.13 Luc|id..;;; |
|000000b0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000c0| 20 32 2e 31 30 3b 20 20 | 31 2d 66 65 62 2d 39 33 | 2.10;  |1-feb-93|
|000000d0| 2e 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |..;;; op|timizati|
|000000e0| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|000000f0| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|00000100| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|00000110| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000120| 31 38 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |18...(if| (and (b|
|00000130| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000140| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000150| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000160| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000170| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|)..     |
|00000180| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|00000190| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 31 39 22 |acs-vers|ion "19"|
|000001a0| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))).    |(error "|
|000001b0| 54 68 69 73 20 66 69 6c | 65 20 77 61 73 20 63 6f |This fil|e was co|
|000001c0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001d0| 31 39 2e 22 29 29 0a 0a | 28 62 79 74 65 2d 63 6f |19."))..|(byte-co|
|000001e0| 64 65 20 22 c0 11 c2 87 | 22 20 5b 22 63 76 73 20 |de "....|" ["cvs |
|000001f0| 61 74 65 20 6d 65 22 20 | 61 75 74 6f 2d 73 61 76 |ate me" |auto-sav|
|00000200| 65 2d 76 65 72 73 69 6f | 6e 20 6e 69 6c 5d 20 31 |e-versio|n nil] 1|
|00000210| 29 0a 28 64 65 66 76 61 | 72 20 61 75 74 6f 2d 73 |).(defva|r auto-s|
|00000220| 61 76 65 2d 64 69 72 65 | 63 74 6f 72 79 20 6e 69 |ave-dire|ctory ni|
|00000230| 6c 20 22 5c 0a 49 66 20 | 6e 6f 6e 2d 6e 69 6c 2c |l "\.If |non-nil,|
|00000240| 20 66 69 78 65 64 20 64 | 69 72 65 63 74 6f 72 79 | fixed d|irectory|
|00000250| 20 66 6f 72 20 61 75 74 | 6f 73 61 76 69 6e 67 3a | for aut|osaving:|
|00000260| 20 61 6c 6c 20 61 75 74 | 6f 73 61 76 65 20 66 69 | all aut|osave fi|
|00000270| 6c 65 73 20 67 6f 0a 74 | 68 65 72 65 2e 20 20 49 |les go.t|here.  I|
|00000280| 66 20 74 68 69 73 20 64 | 69 72 65 63 74 6f 72 79 |f this d|irectory|
|00000290| 20 64 6f 65 73 20 6e 6f | 74 20 79 65 74 20 65 78 | does no|t yet ex|
|000002a0| 69 73 74 20 61 74 20 6c | 6f 61 64 20 74 69 6d 65 |ist at l|oad time|
|000002b0| 2c 20 69 74 20 69 73 0a | 63 72 65 61 74 65 64 20 |, it is.|created |
|000002c0| 61 6e 64 20 69 74 73 20 | 6d 6f 64 65 20 69 73 20 |and its |mode is |
|000002d0| 73 65 74 20 74 6f 20 30 | 37 30 30 20 73 6f 20 74 |set to 0|700 so t|
|000002e0| 68 61 74 20 6e 6f 62 6f | 64 79 20 65 6c 73 65 20 |hat nobo|dy else |
|000002f0| 63 61 6e 20 72 65 61 64 | 20 79 6f 75 72 0a 61 75 |can read| your.au|
|00000300| 74 6f 73 61 76 65 20 66 | 69 6c 65 73 2e 0a 0a 49 |tosave f|iles...I|
|00000310| 66 20 6e 69 6c 2c 20 65 | 61 63 68 20 61 75 74 6f |f nil, e|ach auto|
|00000320| 73 61 76 65 20 66 69 6c | 65 73 20 67 6f 65 73 20 |save fil|es goes |
|00000330| 69 6e 74 6f 20 74 68 65 | 20 73 61 6d 65 20 64 69 |into the| same di|
|00000340| 72 65 63 74 6f 72 79 20 | 61 73 20 69 74 73 0a 63 |rectory |as its.c|
|00000350| 6f 72 72 65 73 70 6f 6e | 64 69 6e 67 20 76 69 73 |orrespon|ding vis|
|00000360| 69 74 65 64 20 66 69 6c | 65 2e 0a 0a 41 20 6e 6f |ited fil|e...A no|
|00000370| 6e 2d 6e 69 6c 20 60 61 | 75 74 6f 2d 73 61 76 65 |n-nil `a|uto-save|
|00000380| 2d 64 69 72 65 63 74 6f | 72 79 27 20 63 6f 75 6c |-directo|ry' coul|
|00000390| 64 20 62 65 20 6f 6e 20 | 61 20 6c 6f 63 61 6c 20 |d be on |a local |
|000003a0| 64 69 73 6b 20 73 75 63 | 68 20 61 73 20 69 6e 0a |disk suc|h as in.|
|000003b0| 2f 74 6d 70 2c 20 74 68 | 65 6e 20 61 75 74 6f 2d |/tmp, th|en auto-|
|000003c0| 73 61 76 65 73 20 77 69 | 6c 6c 20 61 6c 77 61 79 |saves wi|ll alway|
|000003d0| 73 20 62 65 20 66 61 73 | 74 2c 20 65 76 65 6e 20 |s be fas|t, even |
|000003e0| 69 66 20 4e 46 53 20 6f | 72 20 74 68 65 0a 61 75 |if NFS o|r the.au|
|000003f0| 74 6f 6d 6f 75 6e 74 65 | 72 20 69 73 20 73 6c 6f |tomounte|r is slo|
|00000400| 77 2e 20 20 49 6e 20 74 | 68 65 20 75 73 75 61 6c |w.  In t|he usual|
|00000410| 20 63 61 73 65 20 6f 66 | 20 2f 74 6d 70 20 62 65 | case of| /tmp be|
|00000420| 69 6e 67 20 6c 6f 63 61 | 6c 6c 79 20 6d 6f 75 6e |ing loca|lly moun|
|00000430| 74 65 64 2c 0a 6e 6f 74 | 65 20 74 68 61 74 20 69 |ted,.not|e that i|
|00000440| 66 20 79 6f 75 20 72 75 | 6e 20 65 6d 61 63 73 20 |f you ru|n emacs |
|00000450| 6f 6e 20 74 77 6f 20 64 | 69 66 66 65 72 65 6e 74 |on two d|ifferent|
|00000460| 20 6d 61 63 68 69 6e 65 | 73 2c 20 74 68 65 79 20 | machine|s, they |
|00000470| 77 69 6c 6c 20 6e 6f 74 | 0a 73 65 65 20 65 61 63 |will not|.see eac|
|00000480| 68 20 6f 74 68 65 72 27 | 73 20 61 75 74 6f 2d 73 |h other'|s auto-s|
|00000490| 61 76 65 20 66 69 6c 65 | 73 2e 0a 0a 54 68 65 20 |ave file|s...The |
|000004a0| 76 61 6c 75 65 20 28 65 | 78 70 61 6e 64 2d 66 69 |value (e|xpand-fi|
|000004b0| 6c 65 2d 6e 61 6d 65 20 | 5c 22 7e 2f 61 75 74 6f |le-name |\"~/auto|
|000004c0| 73 61 76 65 2f 5c 22 29 | 20 6d 69 67 68 74 20 62 |save/\")| might b|
|000004d0| 65 20 62 65 74 74 65 72 | 20 69 66 20 2f 74 6d 70 |e better| if /tmp|
|000004e0| 0a 69 73 20 6d 6f 75 6e | 74 65 64 20 66 72 6f 6d |.is moun|ted from|
|000004f0| 20 73 77 61 70 20 28 70 | 6f 73 73 69 62 6c 65 20 | swap (p|ossible |
|00000500| 69 6e 20 53 75 6e 4f 53 | 2c 20 74 79 70 65 20 60 |in SunOS|, type `|
|00000510| 64 66 20 2f 74 6d 70 27 | 20 74 6f 20 66 69 6e 64 |df /tmp'| to find|
|00000520| 20 6f 75 74 29 0a 61 6e | 64 20 74 68 75 73 20 76 | out).an|d thus v|
|00000530| 61 6e 69 73 68 65 73 20 | 61 66 74 65 72 20 61 20 |anishes |after a |
|00000540| 72 65 62 6f 6f 74 2c 20 | 6f 72 20 69 66 20 79 6f |reboot, |or if yo|
|00000550| 75 72 20 73 79 73 74 65 | 6d 20 69 73 20 70 61 72 |ur syste|m is par|
|00000560| 74 69 63 75 6c 61 72 6c | 79 0a 74 68 6f 72 6f 75 |ticularl|y.thorou|
|00000570| 67 68 20 77 68 65 6e 20 | 63 6c 65 61 6e 69 6e 67 |gh when |cleaning|
|00000580| 20 75 70 20 2f 74 6d 70 | 2c 20 63 6c 65 61 72 69 | up /tmp|, cleari|
|00000590| 6e 67 20 65 76 65 6e 20 | 6e 6f 6e 2d 65 6d 70 74 |ng even |non-empt|
|000005a0| 79 20 73 75 62 64 69 72 | 65 63 74 6f 72 69 65 73 |y subdir|ectories|
|000005b0| 2e 0a 0a 49 74 20 73 68 | 6f 75 6c 64 20 6e 65 76 |...It sh|ould nev|
|000005c0| 65 72 20 62 65 20 61 6e | 20 61 6e 67 65 2d 66 74 |er be an| ange-ft|
|000005d0| 70 20 72 65 6d 6f 74 65 | 20 66 69 6c 65 6e 61 6d |p remote| filenam|
|000005e0| 65 20 62 65 63 61 75 73 | 65 20 74 68 61 74 20 77 |e becaus|e that w|
|000005f0| 6f 75 6c 64 0a 64 65 66 | 65 61 74 20 60 61 6e 67 |ould.def|eat `ang|
|00000600| 65 2d 66 74 70 2d 61 75 | 74 6f 2d 73 61 76 65 2d |e-ftp-au|to-save-|
|00000610| 72 65 6d 6f 74 65 6c 79 | 27 2e 0a 0a 55 6e 6c 65 |remotely|'...Unle|
|00000620| 73 73 20 79 6f 75 20 73 | 65 74 20 60 61 75 74 6f |ss you s|et `auto|
|00000630| 2d 73 61 76 65 2d 68 61 | 73 68 2d 70 27 2c 20 79 |-save-ha|sh-p', y|
|00000640| 6f 75 20 73 68 6f 75 6c | 64 6e 27 74 20 73 65 74 |ou shoul|dn't set|
|00000650| 20 74 68 69 73 20 74 6f | 20 61 0a 64 69 72 65 63 | this to| a.direc|
|00000660| 74 6f 72 79 20 69 6e 20 | 61 20 66 69 6c 65 73 79 |tory in |a filesy|
|00000670| 73 74 65 6d 20 74 68 61 | 74 20 64 6f 65 73 20 6e |stem tha|t does n|
|00000680| 6f 74 20 73 75 70 70 6f | 72 74 20 6c 6f 6e 67 20 |ot suppo|rt long |
|00000690| 66 69 6c 65 6e 61 6d 65 | 73 2c 20 73 69 6e 63 65 |filename|s, since|
|000006a0| 0a 61 20 66 69 6c 65 20 | 6e 61 6d 65 64 0a 0a 20 |.a file |named.. |
|000006b0| 20 20 20 2f 68 6f 6d 65 | 2f 73 6b 2f 6c 69 62 2f |   /home|/sk/lib/|
|000006c0| 65 6d 61 63 73 2f 6c 69 | 73 70 2f 61 75 74 6f 2d |emacs/li|sp/auto-|
|000006d0| 73 61 76 65 2e 65 6c 0a | 0a 77 69 6c 6c 20 68 61 |save.el.|.will ha|
|000006e0| 76 65 20 61 20 6c 6f 6e | 67 69 73 68 20 66 69 6c |ve a lon|gish fil|
|000006f0| 65 6e 61 6d 65 20 6c 69 | 6b 65 0a 0a 20 20 20 20 |ename li|ke..    |
|00000700| 41 55 54 4f 2d 53 41 56 | 45 2d 44 49 52 45 43 54 |AUTO-SAV|E-DIRECT|
|00000710| 4f 52 59 2f 23 5c 5c 21 | 68 6f 6d 65 5c 5c 21 73 |ORY/#\\!|home\\!s|
|00000720| 6b 5c 5c 21 6c 69 62 5c | 5c 21 65 6d 61 63 73 5c |k\\!lib\|\!emacs\|
|00000730| 5c 21 6c 69 73 70 5c 5c | 21 61 75 74 6f 2d 73 61 |\!lisp\\|!auto-sa|
|00000740| 76 65 2e 65 6c 23 0a 0a | 61 73 20 61 75 74 6f 20 |ve.el#..|as auto |
|00000750| 73 61 76 65 20 66 69 6c | 65 2e 0a 0a 53 65 65 20 |save fil|e...See |
|00000760| 61 6c 73 6f 20 76 61 72 | 69 61 62 6c 65 73 20 60 |also var|iables `|
|00000770| 61 75 74 6f 2d 73 61 76 | 65 2d 64 69 72 65 63 74 |auto-sav|e-direct|
|00000780| 6f 72 79 2d 66 61 6c 6c | 62 61 63 6b 27 2c 20 60 |ory-fall|back', `|
|00000790| 61 75 74 6f 2d 73 61 76 | 65 2d 68 61 73 68 2d 70 |auto-sav|e-hash-p|
|000007a0| 27 2c 0a 60 61 6e 67 65 | 2d 66 74 70 2d 61 75 74 |',.`ange|-ftp-aut|
|000007b0| 6f 2d 73 61 76 65 27 20 | 61 6e 64 20 60 61 6e 67 |o-save' |and `ang|
|000007c0| 65 2d 66 74 70 2d 61 75 | 74 6f 2d 73 61 76 65 2d |e-ftp-au|to-save-|
|000007d0| 72 65 6d 6f 74 65 6c 79 | 27 2e 22 29 0a 28 64 65 |remotely|'.").(de|
|000007e0| 66 76 61 72 20 61 75 74 | 6f 2d 73 61 76 65 2d 68 |fvar aut|o-save-h|
|000007f0| 61 73 68 2d 70 20 6e 69 | 6c 20 22 5c 0a 49 66 20 |ash-p ni|l "\.If |
|00000800| 6e 6f 6e 2d 6e 69 6c 2c | 20 68 61 73 68 65 64 20 |non-nil,| hashed |
|00000810| 61 75 74 6f 73 61 76 65 | 20 6e 61 6d 65 73 20 6f |autosave| names o|
|00000820| 66 20 6c 65 6e 67 74 68 | 20 31 34 20 61 72 65 20 |f length| 14 are |
|00000830| 75 73 65 64 2e 0a 54 68 | 69 73 20 69 73 20 74 6f |used..Th|is is to|
|00000840| 20 61 76 6f 69 64 20 61 | 75 74 6f 73 61 76 65 20 | avoid a|utosave |
|00000850| 66 69 6c 65 6e 61 6d 65 | 73 20 6c 6f 6e 67 65 72 |filename|s longer|
|00000860| 20 74 68 61 6e 20 31 34 | 20 63 68 61 72 61 63 74 | than 14| charact|
|00000870| 65 72 73 2e 0a 54 68 65 | 20 64 69 72 65 63 74 6f |ers..The| directo|
|00000880| 72 79 20 75 73 65 64 20 | 69 73 20 60 61 75 74 6f |ry used |is `auto|
|00000890| 2d 73 61 76 65 2d 68 61 | 73 68 2d 64 69 72 65 63 |-save-ha|sh-direc|
|000008a0| 74 6f 72 79 27 20 72 65 | 67 61 72 64 6c 65 73 73 |tory' re|gardless|
|000008b0| 20 6f 66 0a 60 61 75 74 | 6f 2d 73 61 76 65 2d 64 | of.`aut|o-save-d|
|000008c0| 69 72 65 63 74 6f 72 79 | 27 2e 0a 48 61 73 68 69 |irectory|'..Hashi|
|000008d0| 6e 67 20 64 65 66 65 61 | 74 73 20 60 72 65 63 6f |ng defea|ts `reco|
|000008e0| 76 65 72 2d 61 6c 6c 2d | 66 69 6c 65 73 27 2c 20 |ver-all-|files', |
|000008f0| 79 6f 75 20 68 61 76 65 | 20 74 6f 20 72 65 63 6f |you have| to reco|
|00000900| 76 65 72 20 66 69 6c 65 | 73 0a 69 6e 64 69 76 69 |ver file|s.indivi|
|00000910| 64 75 61 6c 6c 79 20 62 | 79 20 64 6f 69 6e 67 20 |dually b|y doing |
|00000920| 60 72 65 63 6f 76 65 72 | 2d 66 69 6c 65 27 2e 22 |`recover|-file'."|
|00000930| 29 0a 28 64 65 66 76 61 | 72 20 61 6e 67 65 2d 66 |).(defva|r ange-f|
|00000940| 74 70 2d 61 75 74 6f 2d | 73 61 76 65 20 30 20 22 |tp-auto-|save 0 "|
|00000950| 5c 0a 49 66 20 31 2c 20 | 61 6c 6c 6f 77 73 20 61 |\.If 1, |allows a|
|00000960| 6e 67 65 2d 66 74 70 20 | 66 69 6c 65 73 20 74 6f |nge-ftp |files to|
|00000970| 20 62 65 20 61 75 74 6f | 2d 73 61 76 65 64 2e 0a | be auto|-saved..|
|00000980| 49 66 20 30 2c 20 73 75 | 70 70 72 65 73 73 65 73 |If 0, su|ppresses|
|00000990| 20 61 75 74 6f 2d 73 61 | 76 69 6e 67 20 6f 66 20 | auto-sa|ving of |
|000009a0| 61 6e 67 65 2d 66 74 70 | 20 66 69 6c 65 73 2e 0a |ange-ftp| files..|
|000009b0| 44 6f 6e 27 74 20 75 73 | 65 20 61 6e 79 20 6f 74 |Don't us|e any ot|
|000009c0| 68 65 72 20 76 61 6c 75 | 65 2e 22 29 0a 28 64 65 |her valu|e.").(de|
|000009d0| 66 76 61 72 20 61 6e 67 | 65 2d 66 74 70 2d 61 75 |fvar ang|e-ftp-au|
|000009e0| 74 6f 2d 73 61 76 65 2d | 72 65 6d 6f 74 65 6c 79 |to-save-|remotely|
|000009f0| 20 6e 69 6c 20 22 5c 0a | 2a 49 66 20 6e 6f 6e 2d | nil "\.|*If non-|
|00000a00| 6e 69 6c 2c 20 63 61 75 | 73 65 73 20 74 68 65 20 |nil, cau|ses the |
|00000a10| 61 75 74 6f 2d 73 61 76 | 65 20 66 69 6c 65 20 66 |auto-sav|e file f|
|00000a20| 6f 72 20 61 6e 20 61 6e | 67 65 2d 66 74 70 20 66 |or an an|ge-ftp f|
|00000a30| 69 6c 65 20 74 6f 20 62 | 65 20 77 72 69 74 74 65 |ile to b|e writte|
|00000a40| 6e 20 69 6e 0a 74 68 65 | 20 72 65 6d 6f 74 65 20 |n in.the| remote |
|00000a50| 64 69 72 65 63 74 6f 72 | 79 20 63 6f 6e 74 61 69 |director|y contai|
|00000a60| 6e 69 6e 67 20 74 68 65 | 20 66 69 6c 65 2c 20 72 |ning the| file, r|
|00000a70| 61 74 68 65 72 20 74 68 | 61 6e 20 69 6e 20 61 20 |ather th|an in a |
|00000a80| 6c 6f 63 61 6c 20 64 69 | 72 65 63 74 6f 72 79 2e |local di|rectory.|
|00000a90| 0a 0a 46 6f 72 20 72 65 | 6d 6f 74 65 20 66 69 6c |..For re|mote fil|
|00000aa0| 65 73 2c 20 74 68 69 73 | 20 62 65 69 6e 67 20 74 |es, this| being t|
|00000ab0| 72 75 65 20 6f 76 65 72 | 72 69 64 65 73 20 61 20 |rue over|rides a |
|00000ac0| 6e 6f 6e 2d 6e 69 6c 0a | 60 61 75 74 6f 2d 73 61 |non-nil.|`auto-sa|
|00000ad0| 76 65 2d 64 69 72 65 63 | 74 6f 72 79 27 2e 20 20 |ve-direc|tory'.  |
|00000ae0| 4c 6f 63 61 6c 20 66 69 | 6c 65 73 20 61 72 65 20 |Local fi|les are |
|00000af0| 75 6e 61 66 66 65 63 74 | 65 64 2e 0a 0a 49 66 20 |unaffect|ed...If |
|00000b00| 79 6f 75 20 77 61 6e 74 | 20 74 6f 20 75 73 65 20 |you want| to use |
|00000b10| 74 68 69 73 20 66 65 61 | 74 75 72 65 2c 20 79 6f |this fea|ture, yo|
|00000b20| 75 20 70 72 6f 62 61 62 | 6c 79 20 6f 6e 6c 79 20 |u probab|ly only |
|00000b30| 77 61 6e 74 20 74 6f 20 | 73 65 74 20 74 68 69 73 |want to |set this|
|00000b40| 0a 74 72 75 65 20 69 6e | 20 61 20 66 65 77 20 62 |.true in| a few b|
|00000b50| 75 66 66 65 72 73 2c 20 | 72 61 74 68 65 72 20 74 |uffers, |rather t|
|00000b60| 68 61 6e 20 67 6c 6f 62 | 61 6c 6c 79 2e 20 20 59 |han glob|ally.  Y|
|00000b70| 6f 75 20 6d 69 67 68 74 | 20 77 61 6e 74 20 74 6f |ou might| want to|
|00000b80| 20 67 69 76 65 0a 65 61 | 63 68 20 62 75 66 66 65 | give.ea|ch buffe|
|00000b90| 72 20 69 74 73 20 6f 77 | 6e 20 76 61 6c 75 65 20 |r its ow|n value |
|00000ba0| 75 73 69 6e 67 20 60 6d | 61 6b 65 2d 76 61 72 69 |using `m|ake-vari|
|00000bb0| 61 62 6c 65 2d 62 75 66 | 66 65 72 2d 6c 6f 63 61 |able-buf|fer-loca|
|00000bc0| 6c 27 2e 0a 0a 53 65 65 | 20 61 6c 73 6f 20 76 61 |l'...See| also va|
|00000bd0| 72 69 61 62 6c 65 20 60 | 61 6e 67 65 2d 66 74 70 |riable `|ange-ftp|
|00000be0| 2d 61 75 74 6f 2d 73 61 | 76 65 27 2e 22 29 0a 28 |-auto-sa|ve'.").(|
|00000bf0| 64 65 66 76 61 72 20 61 | 75 74 6f 2d 73 61 76 65 |defvar a|uto-save|
|00000c00| 2d 64 69 72 65 63 74 6f | 72 79 2d 66 61 6c 6c 62 |-directo|ry-fallb|
|00000c10| 61 63 6b 20 28 65 78 70 | 61 6e 64 2d 66 69 6c 65 |ack (exp|and-file|
|00000c20| 2d 6e 61 6d 65 20 22 7e | 2f 61 75 74 6f 73 61 76 |-name "~|/autosav|
|00000c30| 65 2f 22 29 20 22 5c 0a | 44 69 72 65 63 74 6f 72 |e/") "\.|Director|
|00000c40| 79 20 75 73 65 64 20 66 | 6f 72 20 6c 6f 63 61 6c |y used f|or local|
|00000c50| 20 61 75 74 6f 73 61 76 | 69 6e 67 20 6f 66 20 72 | autosav|ing of r|
|00000c60| 65 6d 6f 74 65 20 66 69 | 6c 65 73 20 69 66 0a 62 |emote fi|les if.b|
|00000c70| 6f 74 68 20 60 61 75 74 | 6f 2d 73 61 76 65 2d 64 |oth `aut|o-save-d|
|00000c80| 69 72 65 63 74 6f 72 79 | 27 20 61 6e 64 20 60 61 |irectory|' and `a|
|00000c90| 6e 67 65 2d 66 74 70 2d | 61 75 74 6f 2d 73 61 76 |nge-ftp-|auto-sav|
|00000ca0| 65 2d 72 65 6d 6f 74 65 | 6c 79 27 20 61 72 65 20 |e-remote|ly' are |
|00000cb0| 6e 69 6c 2e 0a 41 6c 73 | 6f 20 75 73 65 64 20 69 |nil..Als|o used i|
|00000cc0| 66 20 61 20 77 6f 72 6b | 69 6e 67 20 64 69 72 65 |f a work|ing dire|
|00000cd0| 63 74 6f 72 79 20 74 6f | 20 62 65 20 75 73 65 64 |ctory to| be used|
|00000ce0| 20 66 6f 72 20 61 75 74 | 6f 73 61 76 69 6e 67 20 | for aut|osaving |
|00000cf0| 69 73 20 6e 6f 74 20 77 | 72 69 74 61 62 6c 65 2e |is not w|ritable.|
|00000d00| 0a 54 68 69 73 20 2a 6d | 75 73 74 2a 20 61 6c 77 |.This *m|ust* alw|
|00000d10| 61 79 73 20 62 65 20 74 | 68 65 20 6e 61 6d 65 20 |ays be t|he name |
|00000d20| 6f 66 20 64 69 72 65 63 | 74 6f 72 79 20 74 68 61 |of direc|tory tha|
|00000d30| 74 20 65 78 69 73 74 73 | 20 6f 72 20 63 61 6e 20 |t exists| or can |
|00000d40| 62 65 0a 63 72 65 61 74 | 65 64 20 62 79 20 79 6f |be.creat|ed by yo|
|00000d50| 75 2c 20 6e 65 76 65 72 | 20 6e 69 6c 2e 22 29 0a |u, never| nil.").|
|00000d60| 28 64 65 66 76 61 72 20 | 61 75 74 6f 2d 73 61 76 |(defvar |auto-sav|
|00000d70| 65 2d 68 61 73 68 2d 64 | 69 72 65 63 74 6f 72 79 |e-hash-d|irectory|
|00000d80| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 5c | (byte-c|ode "..\|
|00000d90| 6e ae 81 0b 5c 22 87 22 | 20 5b 65 78 70 61 6e 64 |n...\"."| [expand|
|00000da0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 22 68 61 73 68 |-file-na|me "hash|
|00000db0| 2f 22 20 61 75 74 6f 2d | 73 61 76 65 2d 64 69 72 |/" auto-|save-dir|
|00000dc0| 65 63 74 6f 72 79 20 61 | 75 74 6f 2d 73 61 76 65 |ectory a|uto-save|
|00000dd0| 2d 64 69 72 65 63 74 6f | 72 79 2d 66 61 6c 6c 62 |-directo|ry-fallb|
|00000de0| 61 63 6b 5d 20 33 29 20 | 22 5c 0a 49 66 20 6e 6f |ack] 3) |"\.If no|
|00000df0| 6e 2d 6e 69 6c 2c 20 64 | 69 72 65 63 74 6f 72 79 |n-nil, d|irectory|
|00000e00| 20 75 73 65 64 20 66 6f | 72 20 68 61 73 68 65 64 | used fo|r hashed|
|00000e10| 20 61 75 74 6f 73 61 76 | 65 20 66 69 6c 65 6e 61 | autosav|e filena|
|00000e20| 6d 65 73 2e 22 29 0a 28 | 62 79 74 65 2d 63 6f 64 |mes.").(|byte-cod|
|00000e30| 65 20 22 c0 c1 4d 88 c2 | c0 c3 5c 22 88 0c ab 84 |e "..M..|..\"....|
|00000e40| c0 c5 21 88 c0 87 22 20 | 5b 61 75 74 6f 2d 73 61 |..!..." |[auto-sa|
|00000e50| 76 65 2d 63 68 65 63 6b | 2d 64 69 72 65 63 74 6f |ve-check|-directo|
|00000e60| 72 79 20 23 5b 28 76 61 | 72 29 20 22 08 4a 89 19 |ry #[(va|r) ".J..|
|00000e70| 3f 3f ad a9 08 c2 09 21 | 89 11 4c 88 c3 09 21 3f |??.....!|..L...!?|
|00000e80| ad 9b c4 09 21 11 c5 c6 | 21 ab 86 c6 09 21 88 aa |....!...|!....!..|
|00000e90| 88 c7 c8 c9 89 89 09 25 | 88 ca 09 cb 5c 22 29 87 |.......%|....\").|
|00000ea0| 22 20 5b 76 61 72 20 64 | 69 72 20 65 78 70 61 6e |" [var d|ir expan|
|00000eb0| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 66 69 6c 65 |d-file-n|ame file|
|00000ec0| 2d 64 69 72 65 63 74 6f | 72 79 2d 70 20 64 69 72 |-directo|ry-p dir|
|00000ed0| 65 63 74 6f 72 79 2d 66 | 69 6c 65 2d 6e 61 6d 65 |ectory-f|ile-name|
|00000ee0| 20 66 62 6f 75 6e 64 70 | 20 6d 61 6b 65 2d 64 69 | fboundp| make-di|
|00000ef0| 72 65 63 74 6f 72 79 20 | 63 61 6c 6c 2d 70 72 6f |rectory |call-pro|
|00000f00| 63 65 73 73 20 22 6d 6b | 64 69 72 22 20 6e 69 6c |cess "mk|dir" nil|
|00000f10| 20 73 65 74 2d 66 69 6c | 65 2d 6d 6f 64 65 73 20 | set-fil|e-modes |
|00000f20| 34 34 38 5d 20 37 5d 20 | 6d 61 70 63 61 72 20 28 |448] 7] |mapcar (|
|00000f30| 61 75 74 6f 2d 73 61 76 | 65 2d 64 69 72 65 63 74 |auto-sav|e-direct|
|00000f40| 6f 72 79 20 61 75 74 6f | 2d 73 61 76 65 2d 64 69 |ory auto|-save-di|
|00000f50| 72 65 63 74 6f 72 79 2d | 66 61 6c 6c 62 61 63 6b |rectory-|fallback|
|00000f60| 29 20 61 75 74 6f 2d 73 | 61 76 65 2d 68 61 73 68 |) auto-s|ave-hash|
|00000f70| 2d 70 20 61 75 74 6f 2d | 73 61 76 65 2d 68 61 73 |-p auto-|save-has|
|00000f80| 68 2d 64 69 72 65 63 74 | 6f 72 79 5d 20 33 29 0a |h-direct|ory] 3).|
|00000f90| 28 66 73 65 74 20 27 6d | 61 6b 65 2d 61 75 74 6f |(fset 'm|ake-auto|
|00000fa0| 2d 73 61 76 65 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |-save-fi|le-name |
|00000fb0| 23 5b 6e 69 6c 20 22 c0 | c1 c2 8f 87 22 20 5b 65 |#[nil ".|...." [e|
|00000fc0| 72 72 6f 72 2d 64 61 74 | 61 20 28 62 79 74 65 2d |rror-dat|a (byte-|
|00000fd0| 63 6f 64 65 20 22 c0 c1 | 21 ab 83 09 ae 81 5c 6e |code "..|!.....\n|
|00000fe0| 89 1b 3f ad 83 c4 c5 21 | 1e 06 0b ae 84 c7 c8 20 |..?....!|....... |
|00000ff0| 21 1e 09 0b 3b ad 88 ca | cb 21 ad 83 cb 0b 21 1e |!...;...|.!....!.|
|00001000| 0c cd 0e 0c ab 90 0e 0e | ab 86 cf 0e 09 21 aa 9c |........|.....!..|
|00001010| d0 0e 09 21 aa 96 0e 11 | ac 84 0e 12 ab 88 d0 0e |...!....|........|
|00001020| 09 0e 06 5c 22 aa 86 cf | 0e 09 0e 06 5c 22 21 2c |...\"...|....\"!,|
|00001030| 87 22 20 5b 62 6f 75 6e | 64 70 20 62 75 66 66 65 |." [boun|dp buffe|
|00001040| 72 2d 66 69 6c 65 2d 74 | 72 75 65 6e 61 6d 65 20 |r-file-t|ruename |
|00001050| 62 75 66 66 65 72 2d 66 | 69 6c 65 2d 6e 61 6d 65 |buffer-f|ile-name|
|00001060| 20 66 69 6c 65 2d 6e 61 | 6d 65 20 6d 61 6b 65 2d | file-na|me make-|
|00001070| 74 65 6d 70 2d 6e 61 6d | 65 20 22 23 25 22 20 6e |temp-nam|e "#%" n|
|00001080| 61 6d 65 2d 70 72 65 66 | 69 78 20 61 75 74 6f 2d |ame-pref|ix auto-|
|00001090| 73 61 76 65 2d 75 6e 73 | 6c 61 73 68 69 66 79 2d |save-uns|lashify-|
|000010a0| 6e 61 6d 65 20 62 75 66 | 66 65 72 2d 6e 61 6d 65 |name buf|fer-name|
|000010b0| 20 73 61 76 65 2d 6e 61 | 6d 65 20 66 62 6f 75 6e | save-na|me fboun|
|000010c0| 64 70 20 61 6e 67 65 2d | 66 74 70 2d 66 74 70 2d |dp ange-|ftp-ftp-|
|000010d0| 70 61 74 68 20 72 65 6d | 6f 74 65 2d 70 20 65 78 |path rem|ote-p ex|
|000010e0| 70 61 6e 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 61 |pand-fil|e-name a|
|000010f0| 6e 67 65 2d 66 74 70 2d | 61 75 74 6f 2d 73 61 76 |nge-ftp-|auto-sav|
|00001100| 65 2d 72 65 6d 6f 74 65 | 6c 79 20 61 75 74 6f 2d |e-remote|ly auto-|
|00001110| 73 61 76 65 2d 6e 61 6d | 65 2d 69 6e 2d 73 61 6d |save-nam|e-in-sam|
|00001120| 65 2d 64 69 72 65 63 74 | 6f 72 79 20 61 75 74 6f |e-direct|ory auto|
|00001130| 2d 73 61 76 65 2d 6e 61 | 6d 65 2d 69 6e 2d 66 69 |-save-na|me-in-fi|
|00001140| 78 65 64 2d 64 69 72 65 | 63 74 6f 72 79 20 61 75 |xed-dire|ctory au|
|00001150| 74 6f 2d 73 61 76 65 2d | 64 69 72 65 63 74 6f 72 |to-save-|director|
|00001160| 79 20 61 75 74 6f 2d 73 | 61 76 65 2d 68 61 73 68 |y auto-s|ave-hash|
|00001170| 2d 70 5d 20 35 29 20 28 | 28 65 72 72 6f 72 20 28 |-p] 5) (|(error (|
|00001180| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 5c 6e 5c |byte-cod|e "..\n\|
|00001190| 22 88 c3 c4 21 88 0d ab | 8a c6 0d 21 c7 c8 0d 21 |"...!...|...!...!|
|000011a0| c7 52 87 c9 ca cb 20 c7 | 51 21 87 22 20 5b 6d 65 |.R.... .|Q!." [me|
|000011b0| 73 73 61 67 65 20 22 6d | 61 6b 65 2d 61 75 74 6f |ssage "m|ake-auto|
|000011c0| 2d 73 61 76 65 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |-save-fi|le-name |
|000011d0| 25 73 22 20 65 72 72 6f | 72 2d 64 61 74 61 20 73 |%s" erro|r-data s|
|000011e0| 69 74 2d 66 6f 72 20 32 | 20 62 75 66 66 65 72 2d |it-for 2| buffer-|
|000011f0| 66 69 6c 65 2d 6e 61 6d | 65 20 66 69 6c 65 2d 6e |file-nam|e file-n|
|00001200| 61 6d 65 2d 64 69 72 65 | 63 74 6f 72 79 20 22 23 |ame-dire|ctory "#|
|00001210| 22 20 66 69 6c 65 2d 6e | 61 6d 65 2d 6e 6f 6e 64 |" file-n|ame-nond|
|00001220| 69 72 65 63 74 6f 72 79 | 20 65 78 70 61 6e 64 2d |irectory| expand-|
|00001230| 66 69 6c 65 2d 6e 61 6d | 65 20 22 23 25 22 20 62 |file-nam|e "#%" b|
|00001240| 75 66 66 65 72 2d 6e 61 | 6d 65 5d 20 34 29 29 29 |uffer-na|me] 4)))|
|00001250| 5d 20 33 20 22 5c 0a 52 | 65 74 75 72 6e 20 66 69 |] 3 "\.R|eturn fi|
|00001260| 6c 65 20 6e 61 6d 65 20 | 74 6f 20 75 73 65 20 66 |le name |to use f|
|00001270| 6f 72 20 61 75 74 6f 2d | 73 61 76 65 73 20 6f 66 |or auto-|saves of|
|00001280| 20 63 75 72 72 65 6e 74 | 20 62 75 66 66 65 72 2e | current| buffer.|
|00001290| 0a 44 6f 65 73 20 6e 6f | 74 20 63 6f 6e 73 69 64 |.Does no|t consid|
|000012a0| 65 72 20 60 61 75 74 6f | 2d 73 61 76 65 2d 76 69 |er `auto|-save-vi|
|000012b0| 73 69 74 65 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 27 |sited-fi|le-name'|
|000012c0| 3b 20 74 68 61 74 20 69 | 73 20 63 68 65 63 6b 65 |; that i|s checke|
|000012d0| 64 0a 62 65 66 6f 72 65 | 20 63 61 6c 6c 69 6e 67 |d.before| calling|
|000012e0| 20 74 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 2e 0a | this fu|nction..|
|000012f0| 0a 4f 66 66 65 72 73 20 | 74 6f 20 61 75 74 6f 73 |.Offers |to autos|
|00001300| 61 76 65 20 61 6c 6c 20 | 66 69 6c 65 73 20 69 6e |ave all |files in|
|00001310| 20 74 68 65 20 73 61 6d | 65 20 60 61 75 74 6f 2d | the sam|e `auto-|
|00001320| 73 61 76 65 2d 64 69 72 | 65 63 74 6f 72 79 27 2e |save-dir|ectory'.|
|00001330| 20 20 41 6c 6c 0a 61 75 | 74 6f 73 61 76 65 20 66 |  All.au|tosave f|
|00001340| 69 6c 65 73 20 63 61 6e | 20 74 68 65 6e 20 62 65 |iles can| then be|
|00001350| 20 72 65 63 6f 76 65 72 | 65 64 20 61 74 20 6f 6e | recover|ed at on|
|00001360| 63 65 20 77 69 74 68 20 | 66 75 6e 63 74 69 6f 6e |ce with |function|
|00001370| 0a 60 72 65 63 6f 76 65 | 72 2d 61 6c 6c 2d 66 69 |.`recove|r-all-fi|
|00001380| 6c 65 73 27 2e 0a 0a 54 | 61 6b 65 73 20 63 61 72 |les'...T|akes car|
|00001390| 65 20 74 6f 20 6d 61 6b | 65 20 61 75 74 6f 73 61 |e to mak|e autosa|
|000013a0| 76 65 20 66 69 6c 65 73 | 20 66 6f 72 20 66 69 6c |ve files| for fil|
|000013b0| 65 73 20 61 63 63 65 73 | 73 65 64 20 74 68 72 6f |es acces|sed thro|
|000013c0| 75 67 68 20 61 6e 67 65 | 2d 66 74 70 0a 62 65 20 |ugh ange|-ftp.be |
|000013d0| 6c 6f 63 61 6c 20 66 69 | 6c 65 73 20 69 66 20 76 |local fi|les if v|
|000013e0| 61 72 69 61 62 6c 65 20 | 60 61 6e 67 65 2d 66 74 |ariable |`ange-ft|
|000013f0| 70 2d 61 75 74 6f 2d 73 | 61 76 65 2d 72 65 6d 6f |p-auto-s|ave-remo|
|00001400| 74 65 6c 79 27 20 69 73 | 20 6e 69 6c 2e 0a 0a 54 |tely' is| nil...T|
|00001410| 61 6b 65 73 20 63 61 72 | 65 20 6f 66 20 73 6c 61 |akes car|e of sla|
|00001420| 73 68 65 73 20 69 6e 20 | 62 75 66 66 65 72 20 6e |shes in |buffer n|
|00001430| 61 6d 65 73 20 74 6f 20 | 70 72 65 76 65 6e 74 20 |ames to |prevent |
|00001440| 61 75 74 6f 73 61 76 65 | 20 65 72 72 6f 72 73 2e |autosave| errors.|
|00001450| 0a 0a 54 61 6b 65 73 20 | 63 61 72 65 20 74 68 61 |..Takes |care tha|
|00001460| 74 20 61 75 74 6f 73 61 | 76 65 20 66 69 6c 65 73 |t autosa|ve files|
|00001470| 20 66 6f 72 20 62 75 66 | 66 65 72 73 20 6e 6f 74 | for buf|fers not|
|00001480| 20 76 69 73 69 74 69 6e | 67 20 61 6e 79 20 66 69 | visitin|g any fi|
|00001490| 6c 65 20 28 73 75 63 68 | 0a 61 73 20 60 2a 6d 61 |le (such|.as `*ma|
|000014a0| 69 6c 2a 27 29 20 66 72 | 6f 6d 20 74 77 6f 20 73 |il*') fr|om two s|
|000014b0| 69 6d 75 6c 74 61 6e 65 | 6f 75 73 20 45 6d 61 63 |imultane|ous Emac|
|000014c0| 73 65 73 20 64 6f 6e 27 | 74 20 63 6f 6c 6c 69 64 |ses don'|t collid|
|000014d0| 65 20 62 79 20 70 72 65 | 70 65 6e 64 69 6e 67 0a |e by pre|pending.|
|000014e0| 74 68 65 20 45 6d 61 63 | 73 20 70 69 64 2e 0a 0a |the Emac|s pid...|
|000014f0| 55 73 65 73 20 31 34 20 | 63 68 61 72 61 63 74 65 |Uses 14 |characte|
|00001500| 72 20 61 75 74 6f 73 61 | 76 65 20 6e 61 6d 65 73 |r autosa|ve names|
|00001510| 20 69 66 20 60 61 75 74 | 6f 2d 73 61 76 65 2d 68 | if `aut|o-save-h|
|00001520| 61 73 68 2d 70 27 20 69 | 73 20 74 72 75 65 2e 0a |ash-p' i|s true..|
|00001530| 0a 41 75 74 6f 73 61 76 | 65 73 20 65 76 65 6e 20 |.Autosav|es even |
|00001540| 69 66 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 64 |if the c|urrent d|
|00001550| 69 72 65 63 74 6f 72 79 | 20 69 73 20 6e 6f 74 20 |irectory| is not |
|00001560| 77 72 69 74 61 62 6c 65 | 2c 20 75 73 69 6e 67 0a |writable|, using.|
|00001570| 64 69 72 65 63 74 6f 72 | 79 20 60 61 75 74 6f 2d |director|y `auto-|
|00001580| 73 61 76 65 2d 64 69 72 | 65 63 74 6f 72 79 2d 66 |save-dir|ectory-f|
|00001590| 61 6c 6c 62 61 63 6b 27 | 2e 0a 0a 59 6f 75 20 63 |allback'|...You c|
|000015a0| 61 6e 20 72 65 64 65 66 | 69 6e 65 20 74 68 69 73 |an redef|ine this|
|000015b0| 20 66 6f 72 20 63 75 73 | 74 6f 6d 69 7a 61 74 69 | for cus|tomizati|
|000015c0| 6f 6e 20 28 68 65 20 68 | 65 20 3a 2d 29 2e 0a 53 |on (he h|e :-)..S|
|000015d0| 65 65 20 61 6c 73 6f 20 | 66 75 6e 63 74 69 6f 6e |ee also |function|
|000015e0| 20 60 61 75 74 6f 2d 73 | 61 76 65 2d 66 69 6c 65 | `auto-s|ave-file|
|000015f0| 2d 6e 61 6d 65 2d 70 27 | 2e 22 5d 29 0a 28 66 73 |-name-p'|."]).(fs|
|00001600| 65 74 20 27 61 75 74 6f | 2d 73 61 76 65 2d 6f 72 |et 'auto|-save-or|
|00001610| 69 67 69 6e 61 6c 2d 6e | 61 6d 65 20 23 5b 28 73 |iginal-n|ame #[(s|
|00001620| 61 76 65 6e 61 6d 65 29 | 20 22 c0 09 21 c2 09 21 |avename)| "..!..!|
|00001630| 1b 1c c5 0c 21 ab 86 c6 | c7 0c 5c 22 ab 83 c8 aa |....!...|..\"....|
|00001640| 9a 0b 0e 09 9a ac 86 0b | 0e 5c 6e 9a ab 88 cb 0c |........|.\n.....|
|00001650| cc cd 4f 21 aa 86 0b 0c | cc cd 4f 50 2a 87 22 20 |..O!....|..OP*." |
|00001660| 5b 66 69 6c 65 2d 6e 61 | 6d 65 2d 6e 6f 6e 64 69 |[file-na|me-nondi|
|00001670| 72 65 63 74 6f 72 79 20 | 73 61 76 65 6e 61 6d 65 |rectory |savename|
|00001680| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 64 69 72 65 63 | file-na|me-direc|
|00001690| 74 6f 72 79 20 73 61 76 | 65 64 69 72 20 62 61 73 |tory sav|edir bas|
|000016a0| 65 6e 61 6d 65 20 61 75 | 74 6f 2d 73 61 76 65 2d |ename au|to-save-|
|000016b0| 66 69 6c 65 2d 6e 61 6d | 65 2d 70 20 73 74 72 69 |file-nam|e-p stri|
|000016c0| 6e 67 2d 6d 61 74 63 68 | 20 22 5e 23 25 22 20 6e |ng-match| "^#%" n|
|000016d0| 69 6c 20 61 75 74 6f 2d | 73 61 76 65 2d 64 69 72 |il auto-|save-dir|
|000016e0| 65 63 74 6f 72 79 20 61 | 75 74 6f 2d 73 61 76 65 |ectory a|uto-save|
|000016f0| 2d 64 69 72 65 63 74 6f | 72 79 2d 66 61 6c 6c 62 |-directo|ry-fallb|
|00001700| 61 63 6b 20 61 75 74 6f | 2d 73 61 76 65 2d 73 6c |ack auto|-save-sl|
|00001710| 61 73 68 69 66 79 2d 6e | 61 6d 65 20 31 20 2d 31 |ashify-n|ame 1 -1|
|00001720| 5d 20 34 20 22 5c 0a 52 | 65 76 65 72 73 65 20 6f |] 4 "\.R|everse o|
|00001730| 66 20 60 6d 61 6b 65 2d | 61 75 74 6f 2d 73 61 76 |f `make-|auto-sav|
|00001740| 65 2d 66 69 6c 65 2d 6e | 61 6d 65 27 2e 0a 52 65 |e-file-n|ame'..Re|
|00001750| 74 75 72 6e 73 20 6e 69 | 6c 20 69 66 20 53 41 56 |turns ni|l if SAV|
|00001760| 45 4e 41 4d 45 20 77 61 | 73 20 6e 6f 74 20 61 73 |ENAME wa|s not as|
|00001770| 73 6f 63 69 61 74 65 64 | 20 77 69 74 68 20 61 20 |sociated| with a |
|00001780| 66 69 6c 65 20 28 65 2e | 67 2e 2c 20 69 74 20 63 |file (e.|g., it c|
|00001790| 61 6d 65 0a 66 72 6f 6d | 20 61 6e 20 61 75 74 6f |ame.from| an auto|
|000017a0| 73 61 76 65 64 20 60 2a | 6d 61 69 6c 2a 27 20 62 |saved `*|mail*' b|
|000017b0| 75 66 66 65 72 29 20 6f | 72 20 64 6f 65 73 20 6e |uffer) o|r does n|
|000017c0| 6f 74 20 61 70 70 65 61 | 72 20 74 6f 20 62 65 20 |ot appea|r to be |
|000017d0| 61 6e 0a 61 75 74 6f 73 | 61 76 65 20 66 69 6c 65 |an.autos|ave file|
|000017e0| 20 61 74 20 61 6c 6c 2e | 0a 48 61 73 68 65 64 20 | at all.|.Hashed |
|000017f0| 66 69 6c 65 73 20 61 72 | 65 20 6e 6f 74 20 75 6e |files ar|e not un|
|00001800| 64 65 72 73 74 6f 6f 64 | 2c 20 73 65 65 20 60 61 |derstood|, see `a|
|00001810| 75 74 6f 2d 73 61 76 65 | 2d 68 61 73 68 2d 70 27 |uto-save|-hash-p'|
|00001820| 2e 22 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |."]).(by|te-code |
|00001830| 22 c0 c1 4d 88 c2 c3 4d | 88 c4 c5 4d 88 c6 c7 4d |"..M...M|...M...M|
|00001840| 88 c8 c9 4d 87 22 20 5b | 61 75 74 6f 2d 73 61 76 |...M." [|auto-sav|
|00001850| 65 2d 6e 61 6d 65 2d 69 | 6e 2d 66 69 78 65 64 2d |e-name-i|n-fixed-|
|00001860| 64 69 72 65 63 74 6f 72 | 79 20 23 5b 28 66 69 6c |director|y #[(fil|
|00001870| 65 6e 61 6d 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 |ename &o|ptional |
|00001880| 70 72 65 66 69 78 29 20 | 22 08 ae 81 c1 c2 0b 21 |prefix) |"......!|
|00001890| c1 51 1c 0d ab 93 0e 06 | ab 8f 0c 47 c7 56 ab 89 |.Q......|...G.V..|
|000018a0| c8 c9 0b 21 0e 06 5c 22 | aa 89 c8 0c 0e 5c 6e ae |...!..\"|.....\n.|
|000018b0| 82 0e 0b 5c 22 29 87 22 | 20 5b 70 72 65 66 69 78 |...\")."| [prefix|
|000018c0| 20 22 23 22 20 61 75 74 | 6f 2d 73 61 76 65 2d 75 | "#" aut|o-save-u|
|000018d0| 6e 73 6c 61 73 68 69 66 | 79 2d 6e 61 6d 65 20 66 |nslashif|y-name f|
|000018e0| 69 6c 65 6e 61 6d 65 20 | 62 61 73 65 2d 6e 61 6d |ilename |base-nam|
|000018f0| 65 20 61 75 74 6f 2d 73 | 61 76 65 2d 68 61 73 68 |e auto-s|ave-hash|
|00001900| 2d 70 20 61 75 74 6f 2d | 73 61 76 65 2d 68 61 73 |-p auto-|save-has|
|00001910| 68 2d 64 69 72 65 63 74 | 6f 72 79 20 31 34 20 65 |h-direct|ory 14 e|
|00001920| 78 70 61 6e 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |xpand-fi|le-name |
|00001930| 61 75 74 6f 2d 73 61 76 | 65 2d 63 79 63 6c 69 63 |auto-sav|e-cyclic|
|00001940| 2d 68 61 73 68 2d 31 34 | 20 61 75 74 6f 2d 73 61 |-hash-14| auto-sa|
|00001950| 76 65 2d 64 69 72 65 63 | 74 6f 72 79 20 61 75 74 |ve-direc|tory aut|
|00001960| 6f 2d 73 61 76 65 2d 64 | 69 72 65 63 74 6f 72 79 |o-save-d|irectory|
|00001970| 2d 66 61 6c 6c 62 61 63 | 6b 5d 20 33 5d 20 61 75 |-fallbac|k] 3] au|
|00001980| 74 6f 2d 73 61 76 65 2d | 6e 61 6d 65 2d 69 6e 2d |to-save-|name-in-|
|00001990| 73 61 6d 65 2d 64 69 72 | 65 63 74 6f 72 79 20 23 |same-dir|ectory #|
|000019a0| 5b 28 66 69 6c 65 6e 61 | 6d 65 20 26 6f 70 74 69 |[(filena|me &opti|
|000019b0| 6f 6e 61 6c 20 70 72 65 | 66 69 78 29 20 22 c0 09 |onal pre|fix) "..|
|000019c0| 21 89 1a ab 87 c3 5c 6e | 21 ac 82 0c 12 5c 6e 0d |!.....\n|!....\n.|
|000019d0| ae 81 c6 c7 09 21 c6 52 | 29 87 22 20 5b 66 69 6c |.....!.R|)." [fil|
|000019e0| 65 2d 6e 61 6d 65 2d 64 | 69 72 65 63 74 6f 72 79 |e-name-d|irectory|
|000019f0| 20 66 69 6c 65 6e 61 6d | 65 20 64 69 72 65 63 74 | filenam|e direct|
|00001a00| 6f 72 79 20 66 69 6c 65 | 2d 77 72 69 74 61 62 6c |ory file|-writabl|
|00001a10| 65 2d 70 20 61 75 74 6f | 2d 73 61 76 65 2d 64 69 |e-p auto|-save-di|
|00001a20| 72 65 63 74 6f 72 79 2d | 66 61 6c 6c 62 61 63 6b |rectory-|fallback|
|00001a30| 20 70 72 65 66 69 78 20 | 22 23 22 20 66 69 6c 65 | prefix |"#" file|
|00001a40| 2d 6e 61 6d 65 2d 6e 6f | 6e 64 69 72 65 63 74 6f |-name-no|ndirecto|
|00001a50| 72 79 5d 20 35 5d 20 61 | 75 74 6f 2d 73 61 76 65 |ry] 5] a|uto-save|
|00001a60| 2d 75 6e 73 6c 61 73 68 | 69 66 79 2d 6e 61 6d 65 |-unslash|ify-name|
|00001a70| 20 23 5b 28 73 29 20 22 | c0 19 c2 c3 0c 09 23 ab | #[(s) "|......#.|
|00001a80| a0 0c c0 89 94 4f 0c c0 | 94 c0 95 4f c5 98 ab 83 |.....O..|...O....|
|00001a90| c6 aa 81 c7 0c c0 95 c8 | 4f 51 14 c0 95 54 11 aa |........|OQ...T..|
|00001aa0| 59 29 0c 87 22 20 5b 30 | 20 6c 69 6d 69 74 20 73 |Y).." [0| limit s|
|00001ab0| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 5b 2f 5c |tring-ma|tch "[/\|
|00001ac0| 5c 5d 22 20 73 20 22 2f | 22 20 22 5c 5c 21 22 20 |\]" s "/|" "\\!" |
|00001ad0| 22 5c 5c 5c 5c 22 20 6e | 69 6c 5d 20 35 5d 20 61 |"\\\\" n|il] 5] a|
|00001ae0| 75 74 6f 2d 73 61 76 65 | 2d 73 6c 61 73 68 69 66 |uto-save|-slashif|
|00001af0| 79 2d 6e 61 6d 65 20 23 | 5b 28 73 29 20 22 c0 19 |y-name #|[(s) "..|
|00001b00| c2 c3 0c 09 23 89 11 ab | 9d 0c c5 09 4f 0c 09 54 |....#...|....O..T|
|00001b10| 48 c6 3d ab 83 c7 aa 81 | c8 0c 09 c9 5c 5c c0 4f |H.=.....|....\\.O|
|00001b20| 51 14 09 54 11 aa 5a 29 | 0c 87 22 20 5b 6e 69 6c |Q..T..Z)|.." [nil|
|00001b30| 20 70 6f 73 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 | pos str|ing-matc|
|00001b40| 68 20 22 5c 5c 5c 5c 5b | 5c 5c 21 5d 22 20 73 20 |h "\\\\[|\\!]" s |
|00001b50| 30 20 33 33 20 22 2f 22 | 20 22 5c 5c 22 20 32 5d |0 33 "/"| "\\" 2]|
|00001b60| 20 35 5d 20 61 75 74 6f | 2d 73 61 76 65 2d 63 79 | 5] auto|-save-cy|
|00001b70| 63 6c 69 63 2d 68 61 73 | 68 2d 31 34 20 23 5b 28 |clic-has|h-14 #[(|
|00001b80| 73 29 20 22 c0 c1 c2 5c | 22 c3 1c 1d c6 c7 0e 08 |s) "...\|".......|
|00001b90| 5c 22 88 c9 ca 0d c2 48 | 0d cb 48 0d cc 48 0d cd |\".....H|..H..H..|
|00001ba0| 48 0d ce 48 0d cf 48 0d | d0 48 0d d1 48 26 09 89 |H..H..H.|.H..H&..|
|00001bb0| 14 2a 87 22 20 5b 6d 61 | 6b 65 2d 73 74 72 69 6e |.*." [ma|ke-strin|
|00001bc0| 67 20 38 20 30 20 6e 69 | 6c 20 72 65 73 75 6c 74 |g 8 0 ni|l result|
|00001bd0| 20 63 72 63 20 6d 61 70 | 63 61 72 20 23 5b 28 6e | crc map|car #[(n|
|00001be0| 65 77 29 20 22 08 09 c2 | 48 5c 5c 10 09 c2 09 c3 |ew) "...|H\\.....|
|00001bf0| 48 49 88 09 c3 09 c4 48 | 08 5c 5c 49 88 09 c4 09 |HI.....H|.\\I....|
|00001c00| c5 48 49 88 09 c5 09 c6 | 48 49 88 09 c6 09 c7 48 |.HI.....|HI.....H|
|00001c10| 08 5c 5c 49 88 09 c7 09 | c8 48 49 88 09 c8 09 c9 |.\\I....|.HI.....|
|00001c20| 48 49 88 09 c9 08 49 87 | 22 20 5b 6e 65 77 20 63 |HI....I.|" [new c|
|00001c30| 72 63 20 37 20 36 20 35 | 20 34 20 33 20 32 20 31 |rc 7 6 5| 4 3 2 1|
|00001c40| 20 30 5d 20 34 5d 20 73 | 20 66 6f 72 6d 61 74 20 | 0] 4] s| format |
|00001c50| 22 25 30 32 78 25 30 32 | 78 25 30 32 78 25 30 32 |"%02x%02|x%02x%02|
|00001c60| 78 25 30 32 78 25 30 32 | 78 25 30 32 78 22 20 31 |x%02x%02|x%02x" 1|
|00001c70| 20 32 20 33 20 34 20 35 | 20 36 20 37 5d 20 31 32 | 2 3 4 5| 6 7] 12|
|00001c80| 5d 5d 20 32 29 0a 28 66 | 73 65 74 20 27 72 65 63 |]] 2).(f|set 'rec|
|00001c90| 6f 76 65 72 2d 61 6c 6c | 2d 66 69 6c 65 73 20 23 |over-all|-files #|
|00001ca0| 5b 6e 69 6c 20 22 c0 09 | c2 c3 23 c4 89 c5 89 1e |[nil "..|..#.....|
|00001cb0| 06 1e 07 1e 08 1e 09 1e | 5c 6e 09 0e 0b 9a ac 8c |........|\n......|
|00001cc0| cc 0e 5c 6e c0 0e 0b c2 | c3 23 5c 22 16 5c 6e 0e |..\n....|.#\".\n.|
|00001cd0| 5c 6e ab fb 0e 5c 6e 40 | 16 09 cd 0e 09 21 16 08 |\n...\n@|.....!..|
|00001ce0| 0e 5c 6e 41 16 5c 6e 0e | 08 ab 68 ce 0e 09 0e 08 |.\nA.\n.|..h.....|
|00001cf0| 5c 22 ac 8c cf d0 0e 09 | 5c 22 88 d1 d2 21 88 aa |\"......|\"...!..|
|00001d00| 54 0e 07 54 16 07 d3 90 | d4 d5 c4 0e 16 c4 d7 0e |T..T....|........|
|00001d10| 09 0e 08 26 07 91 88 d8 | d9 da 0e 08 5c 22 21 ab |...&....|....\"!.|
|00001d20| 35 70 1e 1b dc 0e 08 c2 | 5c 22 71 1e 1d c4 1e 1e |5p......|\"q.....|
|00001d30| df 20 88 e0 0e 09 c4 5c | 22 88 e1 c4 21 88 c4 16 |. .....\|"...!...|
|00001d40| 5c 22 0e 06 54 16 06 cf | e3 e4 20 5c 22 88 0e 1b |\"..T...|.. \"...|
|00001d50| 71 88 d1 e5 21 88 2b aa | 01 0e 07 c5 55 ab 86 cf |q...!.+.|....U...|
|00001d60| e6 21 88 aa 92 cf e7 0e | 06 0e 07 0e 06 e5 55 ab |.!......|......U.|
|00001d70| 83 e8 aa 81 e9 24 88 2d | ea d3 21 ad 83 eb d3 21 |.....$.-|..!....!|
|00001d80| 87 22 20 5b 64 69 72 65 | 63 74 6f 72 79 2d 66 69 |." [dire|ctory-fi|
|00001d90| 6c 65 73 20 61 75 74 6f | 2d 73 61 76 65 2d 64 69 |les auto|-save-di|
|00001da0| 72 65 63 74 6f 72 79 20 | 74 20 22 5e 23 22 20 6e |rectory |t "^#" n|
|00001db0| 69 6c 20 30 20 63 6f 75 | 6e 74 20 74 6f 74 61 6c |il 0 cou|nt total|
|00001dc0| 20 66 69 6c 65 20 61 66 | 69 6c 65 20 73 61 76 65 | file af|ile save|
|00001dd0| 66 69 6c 65 73 20 61 75 | 74 6f 2d 73 61 76 65 2d |files au|to-save-|
|00001de0| 64 69 72 65 63 74 6f 72 | 79 2d 66 61 6c 6c 62 61 |director|y-fallba|
|00001df0| 63 6b 20 61 70 70 65 6e | 64 20 61 75 74 6f 2d 73 |ck appen|d auto-s|
|00001e00| 61 76 65 2d 6f 72 69 67 | 69 6e 61 6c 2d 6e 61 6d |ave-orig|inal-nam|
|00001e10| 65 20 66 69 6c 65 2d 6e | 65 77 65 72 2d 74 68 61 |e file-n|ewer-tha|
|00001e20| 6e 2d 66 69 6c 65 2d 70 | 20 6d 65 73 73 61 67 65 |n-file-p| message|
|00001e30| 20 22 61 75 74 6f 73 61 | 76 65 20 66 69 6c 65 20 | "autosa|ve file |
|00001e40| 5c 22 25 73 5c 22 20 69 | 73 20 6e 6f 74 20 63 75 |\"%s\" i|s not cu|
|00001e50| 72 72 65 6e 74 2e 22 20 | 73 69 74 2d 66 6f 72 20 |rrent." |sit-for |
|00001e60| 32 20 22 2a 44 69 72 65 | 63 74 6f 72 79 2a 22 20 |2 "*Dire|ctory*" |
|00001e70| 63 61 6c 6c 2d 70 72 6f | 63 65 73 73 20 22 6c 73 |call-pro|cess "ls|
|00001e80| 22 20 73 74 61 6e 64 61 | 72 64 2d 6f 75 74 70 75 |" standa|rd-outpu|
|00001e90| 74 20 22 2d 6c 22 20 79 | 65 73 2d 6f 72 2d 6e 6f |t "-l" y|es-or-no|
|00001ea0| 2d 70 20 66 6f 72 6d 61 | 74 20 22 52 65 63 6f 76 |-p forma|t "Recov|
|00001eb0| 65 72 20 25 73 20 66 72 | 6f 6d 20 61 75 74 6f 20 |er %s fr|om auto |
|00001ec0| 73 61 76 65 20 66 69 6c | 65 3f 20 22 20 6f 62 75 |save fil|e? " obu|
|00001ed0| 66 20 66 69 6e 64 2d 66 | 69 6c 65 2d 6e 6f 73 65 |f find-f|ile-nose|
|00001ee0| 6c 65 63 74 20 62 75 66 | 20 62 75 66 66 65 72 2d |lect buf| buffer-|
|00001ef0| 72 65 61 64 2d 6f 6e 6c | 79 20 65 72 61 73 65 2d |read-onl|y erase-|
|00001f00| 62 75 66 66 65 72 20 69 | 6e 73 65 72 74 2d 66 69 |buffer i|nsert-fi|
|00001f10| 6c 65 2d 63 6f 6e 74 65 | 6e 74 73 20 61 66 74 65 |le-conte|nts afte|
|00001f20| 72 2d 66 69 6e 64 2d 66 | 69 6c 65 20 62 75 66 66 |r-find-f|ile buff|
|00001f30| 65 72 2d 61 75 74 6f 2d | 73 61 76 65 2d 66 69 6c |er-auto-|save-fil|
|00001f40| 65 2d 6e 61 6d 65 20 22 | 41 75 74 6f 2d 73 61 76 |e-name "|Auto-sav|
|00001f50| 65 20 6f 66 66 20 69 6e | 20 62 75 66 66 65 72 20 |e off in| buffer |
|00001f60| 5c 22 25 73 5c 22 20 74 | 69 6c 6c 20 79 6f 75 20 |\"%s\" t|ill you |
|00001f70| 64 6f 20 4d 2d 78 20 61 | 75 74 6f 2d 73 61 76 65 |do M-x a|uto-save|
|00001f80| 2d 6d 6f 64 65 2e 22 20 | 62 75 66 66 65 72 2d 6e |-mode." |buffer-n|
|00001f90| 61 6d 65 20 31 20 22 4e | 6f 74 68 69 6e 67 20 74 |ame 1 "N|othing t|
|00001fa0| 6f 20 72 65 63 6f 76 65 | 72 2e 22 20 22 25 64 2f |o recove|r." "%d/|
|00001fb0| 25 64 20 66 69 6c 65 25 | 73 20 72 65 63 6f 76 65 |%d file%|s recove|
|00001fc0| 72 65 64 2e 22 20 22 22 | 20 22 73 22 20 67 65 74 |red." ""| "s" get|
|00001fd0| 2d 62 75 66 66 65 72 20 | 6b 69 6c 6c 2d 62 75 66 |-buffer |kill-buf|
|00001fe0| 66 65 72 5d 20 39 20 22 | 5c 0a 44 6f 20 72 65 63 |fer] 9 "|\.Do rec|
|00001ff0| 6f 76 65 72 2d 66 69 6c | 65 20 66 6f 72 20 61 6c |over-fil|e for al|
|00002000| 6c 20 61 75 74 6f 73 61 | 76 65 20 66 69 6c 65 73 |l autosa|ve files|
|00002010| 20 77 68 69 63 68 20 61 | 72 65 20 63 75 72 72 65 | which a|re curre|
|00002020| 6e 74 2e 0a 4f 6e 6c 79 | 20 77 6f 72 6b 73 20 69 |nt..Only| works i|
|00002030| 66 20 79 6f 75 20 68 61 | 76 65 20 61 20 6e 6f 6e |f you ha|ve a non|
|00002040| 2d 6e 69 6c 20 60 61 75 | 74 6f 2d 73 61 76 65 2d |-nil `au|to-save-|
|00002050| 64 69 72 65 63 74 6f 72 | 79 27 2e 0a 48 61 73 68 |director|y'..Hash|
|00002060| 65 64 20 66 69 6c 65 73 | 20 28 73 65 65 20 60 61 |ed files| (see `a|
|00002070| 75 74 6f 2d 73 61 76 65 | 2d 68 61 73 68 2d 70 27 |uto-save|-hash-p'|
|00002080| 29 20 61 72 65 20 6e 6f | 74 20 75 6e 64 65 72 73 |) are no|t unders|
|00002090| 74 6f 6f 64 2c 20 75 73 | 65 0a 60 72 65 63 6f 76 |tood, us|e.`recov|
|000020a0| 65 72 2d 66 69 6c 65 27 | 20 74 6f 20 72 65 63 6f |er-file'| to reco|
|000020b0| 76 65 72 20 74 68 65 6d | 20 69 6e 64 69 76 69 64 |ver them| individ|
|000020c0| 75 61 6c 6c 79 2e 22 20 | 6e 69 6c 5d 29 0a 28 70 |ually." |nil]).(p|
|000020d0| 72 6f 76 69 64 65 20 27 | 61 75 74 6f 2d 73 61 76 |rovide '|auto-sav|
|000020e0| 65 29 0a                |                         |e).     |        |
+--------+-------------------------+-------------------------+--------+--------+