summaryrefslogtreecommitdiff
path: root/lisp/files.elc
blob: c02660144fa0a52f81b11bc3e353de941d161f23 (plain)
ofshex dumpascii
0000 0a 28 64 65 66 63 6f 6e 73 74 20 64 65 6c 65 74 65 2d 61 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 .(defconst.delete-auto-save-file
0020 73 20 74 20 22 5c 0a 2a 4e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 64 65 6c 65 74 65 20 61 20 62 s.t."\.*Non-nil.means.delete.a.b
0040 75 66 66 65 72 27 73 20 61 75 74 6f 2d 73 61 76 65 20 66 69 6c 65 0a 77 68 65 6e 20 74 68 65 20 uffer's.auto-save.file.when.the.
0060 62 75 66 66 65 72 20 69 73 20 73 61 76 65 64 20 66 6f 72 20 72 65 61 6c 2e 22 29 0a 0a 28 64 65 buffer.is.saved.for.real.")..(de
0080 66 63 6f 6e 73 74 20 6d 61 6b 65 2d 62 61 63 6b 75 70 2d 66 69 6c 65 73 20 28 6e 6f 74 20 28 65 fconst.make-backup-files.(not.(e
00a0 71 20 73 79 73 74 65 6d 2d 74 79 70 65 20 28 71 75 6f 74 65 20 76 61 78 2d 76 6d 73 29 29 29 20 q.system-type.(quote.vax-vms))).
00c0 22 5c 0a 2a 43 72 65 61 74 65 20 61 20 62 61 63 6b 75 70 20 6f 66 20 65 61 63 68 20 66 69 6c 65 "\.*Create.a.backup.of.each.file
00e0 20 77 68 65 6e 20 69 74 20 69 73 20 73 61 76 65 64 20 66 6f 72 20 74 68 65 20 66 69 72 73 74 20 .when.it.is.saved.for.the.first.
0100 74 69 6d 65 2e 0a 54 68 69 73 20 63 61 6e 20 62 65 20 64 6f 6e 65 20 62 79 20 72 65 6e 61 6d 69 time..This.can.be.done.by.renami
0120 6e 67 20 74 68 65 20 66 69 6c 65 20 6f 72 20 62 79 20 63 6f 70 79 69 6e 67 2e 0a 0a 52 65 6e 61 ng.the.file.or.by.copying...Rena
0140 6d 69 6e 67 20 6d 65 61 6e 73 20 74 68 61 74 20 45 6d 61 63 73 20 72 65 6e 61 6d 65 73 20 74 68 ming.means.that.Emacs.renames.th
0160 65 20 65 78 69 73 74 69 6e 67 20 66 69 6c 65 20 73 6f 20 74 68 61 74 20 69 74 20 69 73 20 61 0a e.existing.file.so.that.it.is.a.
0180 62 61 63 6b 75 70 20 66 69 6c 65 2c 20 74 68 65 6e 20 77 72 69 74 65 73 20 74 68 65 20 62 75 66 backup.file,.then.writes.the.buf
01a0 66 65 72 20 69 6e 74 6f 20 61 20 6e 65 77 20 66 69 6c 65 2e 20 20 41 6e 79 20 6f 74 68 65 72 20 fer.into.a.new.file...Any.other.
01c0 6e 61 6d 65 73 0a 74 68 61 74 20 74 68 65 20 6f 6c 64 20 66 69 6c 65 20 68 61 64 20 77 69 6c 6c names.that.the.old.file.had.will
01e0 20 6e 6f 77 20 72 65 66 65 72 20 74 6f 20 74 68 65 20 62 61 63 6b 75 70 20 66 69 6c 65 2e 0a 54 .now.refer.to.the.backup.file..T
0200 68 65 20 6e 65 77 20 66 69 6c 65 20 69 73 20 6f 77 6e 65 64 20 62 79 20 79 6f 75 20 61 6e 64 20 he.new.file.is.owned.by.you.and.
0220 69 74 73 20 67 72 6f 75 70 20 69 73 20 64 65 66 61 75 6c 74 65 64 2e 0a 0a 43 6f 70 79 69 6e 67 its.group.is.defaulted...Copying
0240 20 6d 65 61 6e 73 20 74 68 61 74 20 45 6d 61 63 73 20 63 6f 70 69 65 73 20 74 68 65 20 65 78 69 .means.that.Emacs.copies.the.exi
0260 73 74 69 6e 67 20 66 69 6c 65 20 69 6e 74 6f 20 74 68 65 20 62 61 63 6b 75 70 20 66 69 6c 65 2c sting.file.into.the.backup.file,
0280 0a 74 68 65 6e 20 77 72 69 74 65 73 20 74 68 65 20 62 75 66 66 65 72 20 6f 6e 20 74 6f 70 20 6f .then.writes.the.buffer.on.top.o
02a0 66 20 74 68 65 20 65 78 69 73 74 69 6e 67 20 66 69 6c 65 2e 20 20 41 6e 79 20 6f 74 68 65 72 20 f.the.existing.file...Any.other.
02c0 6e 61 6d 65 73 0a 74 68 61 74 20 74 68 65 20 6f 6c 64 20 66 69 6c 65 20 68 61 64 20 77 69 6c 6c names.that.the.old.file.had.will
02e0 20 6e 6f 77 20 72 65 66 65 72 20 74 6f 20 74 68 65 20 6e 65 77 20 28 65 64 69 74 65 64 29 20 66 .now.refer.to.the.new.(edited).f
0300 69 6c 65 2e 0a 54 68 65 20 66 69 6c 65 27 73 20 6f 77 6e 65 72 20 61 6e 64 20 67 72 6f 75 70 20 ile..The.file's.owner.and.group.
0320 61 72 65 20 75 6e 63 68 61 6e 67 65 64 2e 0a 0a 54 68 65 20 63 68 6f 69 63 65 20 6f 66 20 72 65 are.unchanged...The.choice.of.re
0340 6e 61 6d 69 6e 67 20 6f 72 20 63 6f 70 79 69 6e 67 20 69 73 20 63 6f 6e 74 72 6f 6c 6c 65 64 20 naming.or.copying.is.controlled.
0360 62 79 20 74 68 65 20 76 61 72 69 61 62 6c 65 73 0a 62 61 63 6b 75 70 2d 62 79 2d 63 6f 70 79 69 by.the.variables.backup-by-copyi
0380 6e 67 2c 20 62 61 63 6b 75 70 2d 62 79 2d 63 6f 70 79 69 6e 67 2d 77 68 65 6e 2d 6c 69 6e 6b 65 ng,.backup-by-copying-when-linke
03a0 64 20 61 6e 64 0a 62 61 63 6b 75 70 2d 62 79 2d 63 6f 70 79 69 6e 67 2d 77 68 65 6e 2d 6d 69 73 d.and.backup-by-copying-when-mis
03c0 6d 61 74 63 68 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 62 61 63 6b 75 70 2d 62 79 2d 63 6f match.")..(defconst.backup-by-co
03e0 70 79 69 6e 67 20 6e 69 6c 20 22 5c 0a 2a 4e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 61 6c 77 61 pying.nil."\.*Non-nil.means.alwa
0400 79 73 20 75 73 65 20 63 6f 70 79 69 6e 67 20 74 6f 20 63 72 65 61 74 65 20 62 61 63 6b 75 70 20 ys.use.copying.to.create.backup.
0420 66 69 6c 65 73 2e 0a 53 65 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 76 61 72 69 files..See.documentation.of.vari
0440 61 62 6c 65 20 20 6d 61 6b 65 2d 62 61 63 6b 75 70 2d 66 69 6c 65 73 2e 22 29 0a 0a 28 64 65 66 able..make-backup-files.")..(def
0460 63 6f 6e 73 74 20 62 61 63 6b 75 70 2d 62 79 2d 63 6f 70 79 69 6e 67 2d 77 68 65 6e 2d 6c 69 6e const.backup-by-copying-when-lin
0480 6b 65 64 20 6e 69 6c 20 22 5c 0a 2a 4e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 75 73 65 20 63 6f ked.nil."\.*Non-nil.means.use.co
04a0 70 79 69 6e 67 20 74 6f 20 63 72 65 61 74 65 20 62 61 63 6b 75 70 73 20 66 6f 72 20 66 69 6c 65 pying.to.create.backups.for.file
04c0 73 20 77 69 74 68 20 6d 75 6c 74 69 70 6c 65 20 6e 61 6d 65 73 2e 0a 54 68 69 73 20 63 61 75 73 s.with.multiple.names..This.caus
04e0 65 73 20 74 68 65 20 61 6c 74 65 72 6e 61 74 65 20 6e 61 6d 65 73 20 74 6f 20 72 65 66 65 72 20 es.the.alternate.names.to.refer.
0500 74 6f 20 74 68 65 20 6c 61 74 65 73 74 20 76 65 72 73 69 6f 6e 20 61 73 20 65 64 69 74 65 64 2e to.the.latest.version.as.edited.
0520 0a 54 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 72 65 6c 65 76 61 6e 74 20 6f 6e 6c 79 20 .This.variable.is.relevant.only.
0540 69 66 20 20 62 61 63 6b 75 70 2d 62 79 2d 63 6f 70 79 69 6e 67 20 20 69 73 20 6e 69 6c 2e 22 29 if..backup-by-copying..is.nil.")
0560 0a 0a 28 64 65 66 63 6f 6e 73 74 20 62 61 63 6b 75 70 2d 62 79 2d 63 6f 70 79 69 6e 67 2d 77 68 ..(defconst.backup-by-copying-wh
0580 65 6e 2d 6d 69 73 6d 61 74 63 68 20 6e 69 6c 20 22 5c 0a 2a 4e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e en-mismatch.nil."\.*Non-nil.mean
05a0 73 20 63 72 65 61 74 65 20 62 61 63 6b 75 70 73 20 62 79 20 63 6f 70 79 69 6e 67 20 69 66 20 74 s.create.backups.by.copying.if.t
05c0 68 69 73 20 70 72 65 73 65 72 76 65 73 20 6f 77 6e 65 72 20 6f 72 20 67 72 6f 75 70 2e 0a 52 65 his.preserves.owner.or.group..Re
05e0 6e 61 6d 69 6e 67 20 6d 61 79 20 73 74 69 6c 6c 20 62 65 20 75 73 65 64 20 28 73 75 62 6a 65 63 naming.may.still.be.used.(subjec
0600 74 20 74 6f 20 63 6f 6e 74 72 6f 6c 20 6f 66 20 6f 74 68 65 72 20 76 61 72 69 61 62 6c 65 73 29 t.to.control.of.other.variables)
0620 0a 77 68 65 6e 20 69 74 20 77 6f 75 6c 64 20 6e 6f 74 20 72 65 73 75 6c 74 20 69 6e 20 63 68 61 .when.it.would.not.result.in.cha
0640 6e 67 69 6e 67 20 74 68 65 20 6f 77 6e 65 72 20 6f 72 20 67 72 6f 75 70 20 6f 66 20 74 68 65 20 nging.the.owner.or.group.of.the.
0660 66 69 6c 65 3b 0a 74 68 61 74 20 69 73 2c 20 66 6f 72 20 66 69 6c 65 73 20 77 68 69 63 68 20 61 file;.that.is,.for.files.which.a
0680 72 65 20 6f 77 6e 65 64 20 62 79 20 79 6f 75 20 61 6e 64 20 77 68 6f 73 65 20 67 72 6f 75 70 20 re.owned.by.you.and.whose.group.
06a0 6d 61 74 63 68 65 73 0a 74 68 65 20 64 65 66 61 75 6c 74 20 66 6f 72 20 61 20 6e 65 77 20 66 69 matches.the.default.for.a.new.fi
06c0 6c 65 20 63 72 65 61 74 65 64 20 74 68 65 72 65 20 62 79 20 79 6f 75 2e 0a 54 68 69 73 20 76 61 le.created.there.by.you..This.va
06e0 72 69 61 62 6c 65 20 69 73 20 72 65 6c 65 76 61 6e 74 20 6f 6e 6c 79 20 69 66 20 20 62 61 63 6b riable.is.relevant.only.if..back
0700 75 70 2d 62 79 2d 63 6f 70 79 69 6e 67 20 20 69 73 20 6e 69 6c 2e 22 29 0a 0a 28 64 65 66 63 6f up-by-copying..is.nil.")..(defco
0720 6e 73 74 20 62 75 66 66 65 72 2d 6f 66 66 65 72 2d 73 61 76 65 20 6e 69 6c 20 22 5c 0a 2a 4e 6f nst.buffer-offer-save.nil."\.*No
0740 6e 2d 6e 69 6c 20 69 6e 20 61 20 62 75 66 66 65 72 20 6d 65 61 6e 73 20 6f 66 66 65 72 20 74 6f n-nil.in.a.buffer.means.offer.to
0760 20 73 61 76 65 20 74 68 65 20 62 75 66 66 65 72 20 6f 6e 20 65 78 69 74 0a 65 76 65 6e 20 69 66 .save.the.buffer.on.exit.even.if
0780 20 74 68 65 20 62 75 66 66 65 72 20 69 73 20 6e 6f 74 20 76 69 73 69 74 69 6e 67 20 61 20 66 69 .the.buffer.is.not.visiting.a.fi
07a0 6c 65 2e 20 20 41 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 6c 6f 63 61 6c 20 69 6e 0a 61 6c 6c 20 le...Automatically.local.in.all.
07c0 62 75 66 66 65 72 73 2e 22 29 0a 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 buffers.")..(make-variable-buffe
07e0 72 2d 6c 6f 63 61 6c 20 28 71 75 6f 74 65 20 62 75 66 66 65 72 2d 6f 66 66 65 72 2d 73 61 76 65 r-local.(quote.buffer-offer-save
0800 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 66 69 6c 65 2d 70 72 65 63 69 6f 75 73 2d 66 6c 61 67 ))..(defconst.file-precious-flag
0820 20 6e 69 6c 20 22 5c 0a 2a 4e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 70 72 6f 74 65 63 74 20 61 .nil."\.*Non-nil.means.protect.a
0840 67 61 69 6e 73 74 20 49 2f 4f 20 65 72 72 6f 72 73 20 77 68 69 6c 65 20 73 61 76 69 6e 67 20 66 gainst.I/O.errors.while.saving.f
0860 69 6c 65 73 2e 0a 53 6f 6d 65 20 6d 6f 64 65 73 20 73 65 74 20 74 68 69 73 20 6e 6f 6e 2d 6e 69 iles..Some.modes.set.this.non-ni
0880 6c 20 69 6e 20 70 61 72 74 69 63 75 6c 61 72 20 62 75 66 66 65 72 73 2e 22 29 0a 0a 28 64 65 66 l.in.particular.buffers.")..(def
08a0 76 61 72 20 76 65 72 73 69 6f 6e 2d 63 6f 6e 74 72 6f 6c 20 6e 69 6c 20 22 5c 0a 2a 43 6f 6e 74 var.version-control.nil."\.*Cont
08c0 72 6f 6c 20 75 73 65 20 6f 66 20 76 65 72 73 69 6f 6e 20 6e 75 6d 62 65 72 73 20 66 6f 72 20 62 rol.use.of.version.numbers.for.b
08e0 61 63 6b 75 70 20 66 69 6c 65 73 2e 0a 74 20 6d 65 61 6e 73 20 6d 61 6b 65 20 6e 75 6d 65 72 69 ackup.files..t.means.make.numeri
0900 63 20 62 61 63 6b 75 70 20 76 65 72 73 69 6f 6e 73 20 75 6e 63 6f 6e 64 69 74 69 6f 6e 61 6c 6c c.backup.versions.unconditionall
0920 79 2e 0a 6e 69 6c 20 6d 65 61 6e 73 20 6d 61 6b 65 20 74 68 65 6d 20 66 6f 72 20 66 69 6c 65 73 y..nil.means.make.them.for.files
0940 20 74 68 61 74 20 68 61 76 65 20 73 6f 6d 65 20 61 6c 72 65 61 64 79 2e 0a 6e 65 76 65 72 20 6d .that.have.some.already..never.m
0960 65 61 6e 73 20 64 6f 20 6e 6f 74 20 6d 61 6b 65 20 74 68 65 6d 2e 22 29 0a 0a 28 64 65 66 76 61 eans.do.not.make.them.")..(defva
0980 72 20 64 69 72 65 64 2d 6b 65 70 74 2d 76 65 72 73 69 6f 6e 73 20 32 20 22 5c 0a 2a 57 68 65 6e r.dired-kept-versions.2."\.*When
09a0 20 63 6c 65 61 6e 69 6e 67 20 64 69 72 65 63 74 6f 72 79 2c 20 6e 75 6d 62 65 72 20 6f 66 20 76 .cleaning.directory,.number.of.v
09c0 65 72 73 69 6f 6e 73 20 74 6f 20 6b 65 65 70 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 74 72 69 6d ersions.to.keep.")..(defvar.trim
09e0 2d 76 65 72 73 69 6f 6e 73 2d 77 69 74 68 6f 75 74 2d 61 73 6b 69 6e 67 20 6e 69 6c 20 22 5c 0a -versions-without-asking.nil."\.
0a00 2a 49 66 20 74 72 75 65 2c 20 64 65 6c 65 74 65 73 20 65 78 63 65 73 73 20 62 61 63 6b 75 70 20 *If.true,.deletes.excess.backup.
0a20 76 65 72 73 69 6f 6e 73 20 73 69 6c 65 6e 74 6c 79 2e 0a 4f 74 68 65 72 77 69 73 65 20 61 73 6b versions.silently..Otherwise.ask
0a40 73 20 63 6f 6e 66 69 72 6d 61 74 69 6f 6e 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6b 65 70 74 2d s.confirmation.")..(defvar.kept-
0a60 6f 6c 64 2d 76 65 72 73 69 6f 6e 73 20 32 20 22 5c 0a 2a 4e 75 6d 62 65 72 20 6f 66 20 6f 6c 64 old-versions.2."\.*Number.of.old
0a80 65 73 74 20 76 65 72 73 69 6f 6e 73 20 74 6f 20 6b 65 65 70 20 77 68 65 6e 20 61 20 6e 65 77 20 est.versions.to.keep.when.a.new.
0aa0 6e 75 6d 62 65 72 65 64 20 62 61 63 6b 75 70 20 69 73 20 6d 61 64 65 2e 22 29 0a 0a 28 64 65 66 numbered.backup.is.made.")..(def
0ac0 76 61 72 20 6b 65 70 74 2d 6e 65 77 2d 76 65 72 73 69 6f 6e 73 20 32 20 22 5c 0a 2a 4e 75 6d 62 var.kept-new-versions.2."\.*Numb
0ae0 65 72 20 6f 66 20 6e 65 77 65 73 74 20 76 65 72 73 69 6f 6e 73 20 74 6f 20 6b 65 65 70 20 77 68 er.of.newest.versions.to.keep.wh
0b00 65 6e 20 61 20 6e 65 77 20 6e 75 6d 62 65 72 65 64 20 62 61 63 6b 75 70 20 69 73 20 6d 61 64 65 en.a.new.numbered.backup.is.made
0b20 2e 0a 49 6e 63 6c 75 64 65 73 20 74 68 65 20 6e 65 77 20 62 61 63 6b 75 70 2e 20 20 4d 75 73 74 ..Includes.the.new.backup...Must
0b40 20 62 65 20 3e 20 30 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 72 65 71 75 69 72 65 2d 66 69 6e .be.>.0")..(defconst.require-fin
0b60 61 6c 2d 6e 65 77 6c 69 6e 65 20 6e 69 6c 20 22 5c 0a 2a 74 20 73 61 79 73 20 73 69 6c 65 6e 74 al-newline.nil."\.*t.says.silent
0b80 6c 79 20 70 75 74 20 61 20 6e 65 77 6c 69 6e 65 20 61 74 20 74 68 65 20 65 6e 64 20 77 68 65 6e ly.put.a.newline.at.the.end.when
0ba0 65 76 65 72 20 61 20 66 69 6c 65 20 69 73 20 73 61 76 65 64 2e 0a 4e 6f 6e 2d 6e 69 6c 20 62 75 ever.a.file.is.saved..Non-nil.bu
0bc0 74 20 6e 6f 74 20 74 20 73 61 79 73 20 61 73 6b 20 75 73 65 72 20 77 68 65 74 68 65 72 20 74 6f t.not.t.says.ask.user.whether.to
0be0 20 61 64 64 20 61 20 6e 65 77 6c 69 6e 65 20 69 6e 20 65 61 63 68 20 73 75 63 68 20 63 61 73 65 .add.a.newline.in.each.such.case
0c00 2e 0a 6e 69 6c 20 6d 65 61 6e 73 20 64 6f 6e 27 74 20 61 64 64 20 6e 65 77 6c 69 6e 65 73 2e 22 ..nil.means.don't.add.newlines."
0c20 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 61 75 74 6f 2d 73 61 76 65 2d 64 65 66 61 75 6c 74 20 74 )..(defconst.auto-save-default.t
0c40 20 22 5c 0a 2a 74 20 73 61 79 73 20 62 79 20 64 65 66 61 75 6c 74 20 64 6f 20 61 75 74 6f 2d 73 ."\.*t.says.by.default.do.auto-s
0c60 61 76 69 6e 67 20 6f 66 20 65 76 65 72 79 20 66 69 6c 65 2d 76 69 73 69 74 69 6e 67 20 62 75 66 aving.of.every.file-visiting.buf
0c80 66 65 72 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 61 75 74 6f 2d 73 61 76 65 2d 76 69 73 69 fer.")..(defconst.auto-save-visi
0ca0 74 65 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e 69 6c 20 22 5c 0a 2a 74 20 73 61 79 73 20 61 75 74 ted-file-name.nil."\.*t.says.aut
0cc0 6f 2d 73 61 76 65 20 61 20 62 75 66 66 65 72 20 69 6e 20 74 68 65 20 66 69 6c 65 20 69 74 20 69 o-save.a.buffer.in.the.file.it.i
0ce0 73 20 76 69 73 69 74 69 6e 67 2c 20 77 68 65 6e 20 70 72 61 63 74 69 63 61 6c 2e 0a 4e 6f 72 6d s.visiting,.when.practical..Norm
0d00 61 6c 6c 79 20 61 75 74 6f 2d 73 61 76 65 20 66 69 6c 65 73 20 61 72 65 20 77 72 69 74 74 65 6e ally.auto-save.files.are.written
0d20 20 75 6e 64 65 72 20 6f 74 68 65 72 20 6e 61 6d 65 73 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 .under.other.names.")..(defconst
0d40 20 73 61 76 65 2d 61 62 62 72 65 76 73 20 6e 69 6c 20 22 5c 0a 2a 4e 6f 6e 2d 6e 69 6c 20 6d 65 .save-abbrevs.nil."\.*Non-nil.me
0d60 61 6e 73 20 73 61 76 65 20 77 6f 72 64 20 61 62 62 72 65 76 73 20 74 6f 6f 20 77 68 65 6e 20 66 ans.save.word.abbrevs.too.when.f
0d80 69 6c 65 73 20 61 72 65 20 73 61 76 65 64 2e 0a 4c 6f 61 64 69 6e 67 20 61 6e 20 61 62 62 72 65 iles.are.saved..Loading.an.abbre
0da0 76 20 66 69 6c 65 20 73 65 74 73 20 74 68 69 73 20 74 6f 20 74 2e 22 29 0a 0a 28 64 65 66 63 6f v.file.sets.this.to.t.")..(defco
0dc0 6e 73 74 20 66 69 6e 64 2d 66 69 6c 65 2d 72 75 6e 2d 64 69 72 65 64 20 74 20 22 5c 0a 2a 4e 6f nst.find-file-run-dired.t."\.*No
0de0 6e 2d 6e 69 6c 20 73 61 79 73 20 72 75 6e 20 64 69 72 65 64 20 69 66 20 66 69 6e 64 2d 66 69 6c n-nil.says.run.dired.if.find-fil
0e00 65 20 69 73 20 67 69 76 65 6e 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 64 69 72 65 63 74 6f e.is.given.the.name.of.a.directo
0e20 72 79 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 74 2d 66 6f 75 ry.")..(defvar.find-file-not-fou
0e40 6e 64 2d 68 6f 6f 6b 73 20 6e 69 6c 20 22 5c 0a 4c 69 73 74 20 6f 66 20 66 75 6e 63 74 69 6f 6e nd-hooks.nil."\.List.of.function
0e60 73 20 74 6f 20 62 65 20 63 61 6c 6c 65 64 20 66 6f 72 20 66 69 6e 64 2d 66 69 6c 65 20 6f 6e 20 s.to.be.called.for.find-file.on.
0e80 6e 6f 6e 65 78 69 73 74 65 6e 74 20 66 69 6c 65 2e 0a 54 68 65 73 65 20 66 75 6e 63 74 69 6f 6e nonexistent.file..These.function
0ea0 73 20 61 72 65 20 63 61 6c 6c 65 64 20 61 73 20 73 6f 6f 6e 20 61 73 20 74 68 65 20 65 72 72 6f s.are.called.as.soon.as.the.erro
0ec0 72 20 69 73 20 64 65 74 65 63 74 65 64 2e 0a 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 r.is.detected..buffer-file-name.
0ee0 69 73 20 61 6c 72 65 61 64 79 20 73 65 74 20 75 70 2e 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 73 is.already.set.up..The.functions
0f00 20 61 72 65 20 63 61 6c 6c 65 64 20 69 6e 20 74 68 65 20 6f 72 64 65 72 20 67 69 76 65 6e 2c 0a .are.called.in.the.order.given,.
0f20 75 6e 74 69 6c 20 6f 6e 65 20 6f 66 20 74 68 65 6d 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 until.one.of.them.returns.non-ni
0f40 6c 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 66 69 6e 64 2d 66 69 6c 65 2d 68 6f 6f 6b 73 20 6e 69 l.")..(defvar.find-file-hooks.ni
0f60 6c 20 22 5c 0a 4c 69 73 74 20 6f 66 20 66 75 6e 63 74 69 6f 6e 73 20 74 6f 20 62 65 20 63 61 6c l."\.List.of.functions.to.be.cal
0f80 6c 65 64 20 61 66 74 65 72 20 61 20 62 75 66 66 65 72 20 69 73 20 6c 6f 61 64 65 64 20 66 72 6f led.after.a.buffer.is.loaded.fro
0fa0 6d 20 61 20 66 69 6c 65 2e 0a 54 68 65 20 62 75 66 66 65 72 27 73 20 6c 6f 63 61 6c 20 76 61 72 m.a.file..The.buffer's.local.var
0fc0 69 61 62 6c 65 73 20 28 69 66 20 61 6e 79 29 20 77 69 6c 6c 20 68 61 76 65 20 62 65 65 6e 20 70 iables.(if.any).will.have.been.p
0fe0 72 6f 63 65 73 73 65 64 20 62 65 66 6f 72 65 20 74 68 65 0a 66 75 6e 63 74 69 6f 6e 73 20 61 72 rocessed.before.the.functions.ar
1000 65 20 63 61 6c 6c 65 64 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 77 72 69 74 65 2d 66 69 6c 65 2d e.called.")..(defvar.write-file-
1020 68 6f 6f 6b 73 20 6e 69 6c 20 22 5c 0a 4c 69 73 74 20 6f 66 20 66 75 6e 63 74 69 6f 6e 73 20 74 hooks.nil."\.List.of.functions.t
1040 6f 20 62 65 20 63 61 6c 6c 65 64 20 62 65 66 6f 72 65 20 77 72 69 74 69 6e 67 20 6f 75 74 20 61 o.be.called.before.writing.out.a
1060 20 62 75 66 66 65 72 20 74 6f 20 61 20 66 69 6c 65 2e 0a 49 66 20 6f 6e 65 20 6f 66 20 74 68 65 .buffer.to.a.file..If.one.of.the
1080 6d 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 66 69 6c 65 20 69 73 20 63 m.returns.non-nil,.the.file.is.c
10a0 6f 6e 73 69 64 65 72 65 64 20 61 6c 72 65 61 64 79 20 77 72 69 74 74 65 6e 0a 61 6e 64 20 74 68 onsidered.already.written.and.th
10c0 65 20 72 65 73 74 20 61 72 65 20 6e 6f 74 20 63 61 6c 6c 65 64 2e 22 29 0a 0a 28 64 65 66 63 6f e.rest.are.not.called.")..(defco
10e0 6e 73 74 20 69 6e 68 69 62 69 74 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 6e 69 6c 20 nst.inhibit-local-variables.nil.
1100 22 5c 0a 2a 4e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 71 75 65 72 79 20 62 65 66 6f 72 65 20 6f "\.*Non-nil.means.query.before.o
1120 62 65 79 69 6e 67 20 61 20 66 69 6c 65 27 73 20 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 beying.a.file's.local-variables.
1140 6c 69 73 74 2e 0a 54 68 69 73 20 61 70 70 6c 69 65 73 20 77 68 65 6e 20 74 68 65 20 6c 6f 63 61 list..This.applies.when.the.loca
1160 6c 2d 76 61 72 69 61 62 6c 65 73 20 6c 69 73 74 20 69 73 20 73 63 61 6e 6e 65 64 20 61 75 74 6f l-variables.list.is.scanned.auto
1180 6d 61 74 69 63 61 6c 6c 79 0a 61 66 74 65 72 20 79 6f 75 20 66 69 6e 64 20 61 20 66 69 6c 65 2e matically.after.you.find.a.file.
11a0 20 20 49 66 20 79 6f 75 20 65 78 70 6c 69 63 69 74 6c 79 20 72 65 71 75 65 73 74 20 73 75 63 68 ..If.you.explicitly.request.such
11c0 20 61 20 73 63 61 6e 20 77 69 74 68 0a 5c 5c 5b 6e 6f 72 6d 61 6c 2d 6d 6f 64 65 5d 2c 20 74 68 .a.scan.with.\\[normal-mode],.th
11e0 65 72 65 20 69 73 20 6e 6f 20 71 75 65 72 79 2c 20 72 65 67 61 72 64 6c 65 73 73 20 6f 66 20 74 ere.is.no.query,.regardless.of.t
1200 68 69 73 20 76 61 72 69 61 62 6c 65 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 69 67 6e 6f 72 his.variable.")..(defconst.ignor
1220 65 2d 6c 6f 63 61 6c 2d 65 76 61 6c 20 6e 69 6c 20 22 5c 0a 2a 4e 6f 6e 2d 6e 69 6c 20 6d 65 61 e-local-eval.nil."\.*Non-nil.mea
1240 6e 73 20 69 67 6e 6f 72 65 20 74 68 65 20 5c 22 76 61 72 69 61 62 6c 65 5c 22 20 60 65 76 61 6c ns.ignore.the.\"variable\".`eval
1260 27 20 69 6e 20 61 20 66 69 6c 65 27 73 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 2e 0a 54 '.in.a.file's.local.variables..T
1280 68 69 73 20 61 70 70 6c 69 65 73 20 77 68 65 6e 20 74 68 65 20 6c 6f 63 61 6c 2d 76 61 72 69 61 his.applies.when.the.local-varia
12a0 62 6c 65 73 20 6c 69 73 74 20 69 73 20 73 63 61 6e 6e 65 64 20 61 75 74 6f 6d 61 74 69 63 61 6c bles.list.is.scanned.automatical
12c0 6c 79 0a 61 66 74 65 72 20 79 6f 75 20 66 69 6e 64 20 61 20 66 69 6c 65 2e 20 20 49 66 20 79 6f ly.after.you.find.a.file...If.yo
12e0 75 20 65 78 70 6c 69 63 69 74 6c 79 20 72 65 71 75 65 73 74 20 73 75 63 68 20 61 20 73 63 61 6e u.explicitly.request.such.a.scan
1300 20 77 69 74 68 0a 5c 5c 5b 6e 6f 72 6d 61 6c 2d 6d 6f 64 65 5d 2c 20 74 68 65 72 65 20 69 73 20 .with.\\[normal-mode],.there.is.
1320 6e 6f 20 71 75 65 72 79 2c 20 72 65 67 61 72 64 6c 65 73 73 20 6f 66 20 74 68 69 73 20 76 61 72 no.query,.regardless.of.this.var
1340 69 61 62 6c 65 2e 22 29 0a 0a 28 6f 72 20 28 66 62 6f 75 6e 64 70 20 28 71 75 6f 74 65 20 6c 6f iable.")..(or.(fboundp.(quote.lo
1360 63 6b 2d 62 75 66 66 65 72 29 29 20 28 66 73 65 74 20 28 71 75 6f 74 65 20 6c 6f 63 6b 2d 62 75 ck-buffer)).(fset.(quote.lock-bu
1380 66 66 65 72 29 20 28 71 75 6f 74 65 20 69 67 6e 6f 72 65 29 29 29 0a 0a 28 6f 72 20 28 66 62 6f ffer).(quote.ignore)))..(or.(fbo
13a0 75 6e 64 70 20 28 71 75 6f 74 65 20 75 6e 6c 6f 63 6b 2d 62 75 66 66 65 72 29 29 20 28 66 73 65 undp.(quote.unlock-buffer)).(fse
13c0 74 20 28 71 75 6f 74 65 20 75 6e 6c 6f 63 6b 2d 62 75 66 66 65 72 29 20 28 71 75 6f 74 65 20 69 t.(quote.unlock-buffer).(quote.i
13e0 67 6e 6f 72 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 70 77 64 20 6e 69 6c 20 22 5c 0a 53 68 6f 77 gnore)))..(defun.pwd.nil."\.Show
1400 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 65 66 61 75 6c 74 20 64 69 72 65 63 74 6f 72 79 2e 22 .the.current.default.directory."
1420 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 6e 69 6c 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 .(interactive.nil).(byte-code.".
1440 88 c2 c3 09 5c 22 87 22 20 5b 6e 69 6c 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 ....\".".[nil.default-directory.
1460 6d 65 73 73 61 67 65 20 22 44 69 72 65 63 74 6f 72 79 20 25 73 22 5d 20 33 29 29 0a 0a 28 64 65 message."Directory.%s"].3))..(de
1480 66 75 6e 20 63 64 20 28 64 69 72 29 20 22 5c 0a 4d 61 6b 65 20 44 49 52 20 62 65 63 6f 6d 65 20 fun.cd.(dir)."\.Make.DIR.become.
14a0 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 27 73 20 64 65 66 61 75 6c 74 20 64 69 72 the.current.buffer's.default.dir
14c0 65 63 74 6f 72 79 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 44 43 68 61 6e 67 65 20 64 ectory.".(interactive."DChange.d
14e0 65 66 61 75 6c 74 20 64 69 72 65 63 74 6f 72 79 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 efault.directory:.").(byte-code.
1500 22 c3 88 c4 08 21 89 10 88 09 c5 3d 3f 85 14 00 c6 08 21 89 10 88 c7 08 21 3f 83 23 00 c8 c9 08 "....!.....=?.....!.....!?.#....
1520 5c 22 82 26 00 08 89 12 88 ca 20 87 22 20 5b 64 69 72 20 73 79 73 74 65 6d 2d 74 79 70 65 20 64 \".&........".[dir.system-type.d
1540 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 6e 69 6c 20 65 78 70 61 6e 64 2d 66 69 6c 65 efault-directory.nil.expand-file
1560 2d 6e 61 6d 65 20 76 61 78 2d 76 6d 73 20 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 -name.vax-vms.file-name-as-direc
1580 74 6f 72 79 20 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 65 72 72 6f 72 20 22 25 73 20 tory.file-directory-p.error."%s.
15a0 69 73 20 6e 6f 74 20 61 20 64 69 72 65 63 74 6f 72 79 22 20 70 77 64 5d 20 36 29 29 0a 0a 28 64 is.not.a.directory".pwd].6))..(d
15c0 65 66 75 6e 20 6c 6f 61 64 2d 66 69 6c 65 20 28 66 69 6c 65 29 20 22 5c 0a 4c 6f 61 64 20 74 68 efun.load-file.(file)."\.Load.th
15e0 65 20 66 69 6c 65 20 46 49 4c 45 20 6f 66 20 4c 69 73 70 20 63 6f 64 65 2e 22 20 28 69 6e 74 65 e.file.FILE.of.Lisp.code.".(inte
1600 72 61 63 74 69 76 65 20 22 66 4c 6f 61 64 20 66 69 6c 65 3a 20 22 29 20 28 62 79 74 65 2d 63 6f ractive."fLoad.file:.").(byte-co
1620 64 65 20 22 c1 88 c3 c4 08 21 c1 c1 c2 24 87 22 20 5b 66 69 6c 65 20 6e 69 6c 20 74 20 6c 6f 61 de.".....!...$.".[file.nil.t.loa
1640 64 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 d.expand-file-name].6))..(defun.
1660 6c 6f 61 64 2d 6c 69 62 72 61 72 79 20 28 6c 69 62 72 61 72 79 29 20 22 5c 0a 4c 6f 61 64 20 74 load-library.(library)."\.Load.t
1680 68 65 20 6c 69 62 72 61 72 79 20 6e 61 6d 65 64 20 4c 49 42 52 41 52 59 2e 0a 54 68 69 73 20 69 he.library.named.LIBRARY..This.i
16a0 73 20 61 6e 20 69 6e 74 65 72 66 61 63 65 20 74 6f 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 60 s.an.interface.to.the.function.`
16c0 6c 6f 61 64 27 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 73 4c 6f 61 64 20 6c 69 62 72 load'.".(interactive."sLoad.libr
16e0 61 72 79 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 08 21 87 22 20 5b 6c 69 62 ary:.").(byte-code."....!.".[lib
1700 72 61 72 79 20 6e 69 6c 20 6c 6f 61 64 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 73 77 69 74 63 rary.nil.load].2))..(defun.switc
1720 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 28 62 75 66 66 65 72 h-to-buffer-other-window.(buffer
1740 29 20 22 5c 0a 53 65 6c 65 63 74 20 62 75 66 66 65 72 20 42 55 46 46 45 52 20 69 6e 20 61 6e 6f )."\.Select.buffer.BUFFER.in.ano
1760 74 68 65 72 20 77 69 6e 64 6f 77 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 42 53 77 69 ther.window.".(interactive."BSwi
1780 74 63 68 20 74 6f 20 62 75 66 66 65 72 20 69 6e 20 6f 74 68 65 72 20 77 69 6e 64 6f 77 3a 20 22 tch.to.buffer.in.other.window:."
17a0 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c1 18 c4 0a c1 5c 22 29 87 22 20 5b 70 6f 70 2d ).(byte-code.".......\").".[pop-
17c0 75 70 2d 77 69 6e 64 6f 77 73 20 74 20 62 75 66 66 65 72 20 6e 69 6c 20 70 6f 70 2d 74 6f 2d 62 up-windows.t.buffer.nil.pop-to-b
17e0 75 66 66 65 72 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 66 69 6c 65 20 28 66 69 uffer].3))..(defun.find-file.(fi
1800 6c 65 6e 61 6d 65 29 20 22 5c 0a 45 64 69 74 20 66 69 6c 65 20 46 49 4c 45 4e 41 4d 45 2e 0a 53 lename)."\.Edit.file.FILENAME..S
1820 77 69 74 63 68 20 74 6f 20 61 20 62 75 66 66 65 72 20 76 69 73 69 74 69 6e 67 20 66 69 6c 65 20 witch.to.a.buffer.visiting.file.
1840 46 49 4c 45 4e 41 4d 45 2c 0a 63 72 65 61 74 69 6e 67 20 6f 6e 65 20 69 66 20 6e 6f 6e 65 20 61 FILENAME,.creating.one.if.none.a
1860 6c 72 65 61 64 79 20 65 78 69 73 74 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 46 46 lready.exists.".(interactive."FF
1880 69 6e 64 20 66 69 6c 65 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 08 21 21 ind.file:.").(byte-code.".....!!
18a0 87 22 20 5b 66 69 6c 65 6e 61 6d 65 20 6e 69 6c 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 .".[filename.nil.switch-to-buffe
18c0 72 20 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 r.find-file-noselect].3))..(defu
18e0 6e 20 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 28 66 69 6c 65 6e 61 n.find-file-other-window.(filena
1900 6d 65 29 20 22 5c 0a 45 64 69 74 20 66 69 6c 65 20 46 49 4c 45 4e 41 4d 45 2c 20 69 6e 20 61 6e me)."\.Edit.file.FILENAME,.in.an
1920 6f 74 68 65 72 20 77 69 6e 64 6f 77 2e 0a 4d 61 79 20 63 72 65 61 74 65 20 61 20 6e 65 77 20 77 other.window..May.create.a.new.w
1940 69 6e 64 6f 77 2c 20 6f 72 20 72 65 75 73 65 20 61 6e 20 65 78 69 73 74 69 6e 67 20 6f 6e 65 3b indow,.or.reuse.an.existing.one;
1960 0a 73 65 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 .see.the.function.display-buffer
1980 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 46 46 69 6e 64 20 66 69 6c 65 20 69 6e 20 6f .".(interactive."FFind.file.in.o
19a0 74 68 65 72 20 77 69 6e 64 6f 77 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 ther.window:.").(byte-code."....
19c0 08 21 21 87 22 20 5b 66 69 6c 65 6e 61 6d 65 20 6e 69 6c 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 .!!.".[filename.nil.switch-to-bu
19e0 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 ffer-other-window.find-file-nose
1a00 6c 65 63 74 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 66 69 6c 65 2d 72 65 61 64 lect].3))..(defun.find-file-read
1a20 2d 6f 6e 6c 79 20 28 66 69 6c 65 6e 61 6d 65 29 20 22 5c 0a 45 64 69 74 20 66 69 6c 65 20 46 49 -only.(filename)."\.Edit.file.FI
1a40 4c 45 4e 41 4d 45 20 62 75 74 20 64 6f 6e 27 74 20 73 61 76 65 20 77 69 74 68 6f 75 74 20 63 6f LENAME.but.don't.save.without.co
1a60 6e 66 69 72 6d 61 74 69 6f 6e 2e 0a 4c 69 6b 65 20 66 69 6e 64 2d 66 69 6c 65 20 62 75 74 20 6d nfirmation..Like.find-file.but.m
1a80 61 72 6b 73 20 62 75 66 66 65 72 20 61 73 20 72 65 61 64 2d 6f 6e 6c 79 2e 22 20 28 69 6e 74 65 arks.buffer.as.read-only.".(inte
1aa0 72 61 63 74 69 76 65 20 22 66 46 69 6e 64 20 66 69 6c 65 20 72 65 61 64 2d 6f 6e 6c 79 3a 20 22 ractive."fFind.file.read-only:."
1ac0 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 08 21 88 c2 89 11 87 22 20 5b 66 69 6c 65 6e ).(byte-code."....!.....".[filen
1ae0 61 6d 65 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 20 6e 69 6c 20 66 69 6e 64 2d ame.buffer-read-only.t.nil.find-
1b00 66 69 6c 65 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 61 6c 74 65 72 6e 61 74 65 file].3))..(defun.find-alternate
1b20 2d 66 69 6c 65 20 28 66 69 6c 65 6e 61 6d 65 29 20 22 5c 0a 46 69 6e 64 20 66 69 6c 65 20 46 49 -file.(filename)."\.Find.file.FI
1b40 4c 45 4e 41 4d 45 2c 20 73 65 6c 65 63 74 20 69 74 73 20 62 75 66 66 65 72 2c 20 6b 69 6c 6c 20 LENAME,.select.its.buffer,.kill.
1b60 70 72 65 76 69 6f 75 73 20 62 75 66 66 65 72 2e 0a 49 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 previous.buffer..If.the.current.
1b80 62 75 66 66 65 72 20 6e 6f 77 20 63 6f 6e 74 61 69 6e 73 20 61 6e 20 65 6d 70 74 79 20 66 69 6c buffer.now.contains.an.empty.fil
1ba0 65 20 74 68 61 74 20 79 6f 75 20 6a 75 73 74 20 76 69 73 69 74 65 64 0a 28 70 72 65 73 75 6d 61 e.that.you.just.visited.(presuma
1bc0 62 6c 79 20 62 79 20 6d 69 73 74 61 6b 65 29 2c 20 75 73 65 20 74 68 69 73 20 63 6f 6d 6d 61 6e bly.by.mistake),.use.this.comman
1be0 64 20 74 6f 20 76 69 73 69 74 20 74 68 65 20 66 69 6c 65 20 79 6f 75 20 72 65 61 6c 6c 79 20 77 d.to.visit.the.file.you.really.w
1c00 61 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 46 46 69 6e 64 20 61 6c 74 65 72 6e ant.".(interactive."FFind.altern
1c20 61 74 65 20 66 69 6c 65 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c6 20 85 15 00 ate.file:.").(byte-code.".......
1c40 c7 c8 c9 ca 20 5c 22 21 3f 85 15 00 cb cc 21 88 70 0a ca 20 1b 19 18 cd ce 21 88 c4 89 12 88 cf .....\"!?.....!.p........!......
1c60 8e d0 20 88 d1 0d 21 29 88 08 70 3d 86 38 00 d2 08 21 2b 87 22 20 5b 6f 62 75 66 20 6f 66 69 6c ......!)..p=.8...!+.".[obuf.ofil
1c80 65 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 6f 6e 61 6d 65 20 6e 69 6c 20 66 69 6c e.buffer-file-name.oname.nil.fil
1ca0 65 6e 61 6d 65 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 79 65 73 2d 6f 72 2d 6e ename.buffer-modified-p.yes-or-n
1cc0 6f 2d 70 20 66 6f 72 6d 61 74 20 22 42 75 66 66 65 72 20 25 73 20 69 73 20 6d 6f 64 69 66 69 65 o-p.format."Buffer.%s.is.modifie
1ce0 64 3b 20 6b 69 6c 6c 20 61 6e 79 77 61 79 3f 20 22 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 65 72 d;.kill.anyway?.".buffer-name.er
1d00 72 6f 72 20 22 41 62 6f 72 74 65 64 22 20 72 65 6e 61 6d 65 2d 62 75 66 66 65 72 20 22 20 2a 2a ror."Aborted".rename-buffer.".**
1d20 6c 6f 73 65 2a 2a 22 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 08 70 3d 85 10 00 0a 89 11 88 c4 lose**".((byte-code.".p=........
1d40 20 88 c5 0b 21 87 22 20 5b 6f 62 75 66 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 6f ....!.".[obuf.buffer-file-name.o
1d60 66 69 6c 65 20 6f 6e 61 6d 65 20 6c 6f 63 6b 2d 62 75 66 66 65 72 20 72 65 6e 61 6d 65 2d 62 75 file.oname.lock-buffer.rename-bu
1d80 66 66 65 72 5d 20 33 29 29 20 75 6e 6c 6f 63 6b 2d 62 75 66 66 65 72 20 66 69 6e 64 2d 66 69 6c ffer].3)).unlock-buffer.find-fil
1da0 65 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 31 31 29 29 0a 0a 28 64 65 66 75 6e 20 63 72 65 61 e.kill-buffer].11))..(defun.crea
1dc0 74 65 2d 66 69 6c 65 2d 62 75 66 66 65 72 20 28 66 69 6c 65 6e 61 6d 65 29 20 22 5c 0a 43 72 65 te-file-buffer.(filename)."\.Cre
1de0 61 74 65 20 61 20 73 75 69 74 61 62 6c 79 20 6e 61 6d 65 64 20 62 75 66 66 65 72 20 66 6f 72 20 ate.a.suitably.named.buffer.for.
1e00 76 69 73 69 74 69 6e 67 20 46 49 4c 45 4e 41 4d 45 2c 20 61 6e 64 20 72 65 74 75 72 6e 20 69 74 visiting.FILENAME,.and.return.it
1e20 2e 0a 46 49 4c 45 4e 41 4d 45 20 28 73 61 6e 73 20 64 69 72 65 63 74 6f 72 79 29 20 69 73 20 75 ..FILENAME.(sans.directory).is.u
1e40 73 65 64 20 75 6e 63 68 61 6e 67 65 64 20 69 66 20 74 68 61 74 20 6e 61 6d 65 20 69 73 20 66 72 sed.unchanged.if.that.name.is.fr
1e60 65 65 3b 0a 6f 74 68 65 72 77 69 73 65 20 61 20 73 74 72 69 6e 67 20 3c 32 3e 20 6f 72 20 3c 33 ee;.otherwise.a.string.<2>.or.<3
1e80 3e 20 6f 72 20 2e 2e 2e 20 69 73 20 61 70 70 65 6e 64 65 64 20 74 6f 20 67 65 74 20 61 6e 20 75 >.or.....is.appended.to.get.an.u
1ea0 6e 75 73 65 64 20 6e 61 6d 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 09 21 18 c3 08 c4 nused.name.".(byte-code."..!....
1ec0 5c 22 85 0e 00 09 89 10 88 c5 08 21 29 87 22 20 5b 6c 61 73 74 6e 61 6d 65 20 66 69 6c 65 6e 61 \".........!).".[lastname.filena
1ee0 6d 65 20 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 73 74 72 69 6e 67 me.file-name-nondirectory.string
1f00 3d 20 22 22 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 5d 20 34 29 29 0a 0a 28 =."".generate-new-buffer].4))..(
1f20 64 65 66 63 6f 6e 73 74 20 61 75 74 6f 6d 6f 75 6e 74 2d 64 69 72 2d 70 72 65 66 69 78 20 22 5e defconst.automount-dir-prefix."^
1f40 2f 74 6d 70 5f 6d 6e 74 2f 22 20 22 5c 0a 52 65 67 65 78 70 20 74 6f 20 6d 61 74 63 68 20 74 68 /tmp_mnt/"."\.Regexp.to.match.th
1f60 65 20 61 75 74 6f 6d 6f 75 6e 74 65 72 20 70 72 65 66 69 78 20 69 6e 20 61 20 64 69 72 65 63 74 e.automounter.prefix.in.a.direct
1f80 6f 72 79 20 6e 61 6d 65 2e 22 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f ory.name.")..(defun.find-file-no
1fa0 73 65 6c 65 63 74 20 28 66 69 6c 65 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 6e 6f 77 61 72 select.(filename.&optional.nowar
1fc0 6e 29 20 22 5c 0a 52 65 61 64 20 66 69 6c 65 20 46 49 4c 45 4e 41 4d 45 20 69 6e 74 6f 20 61 20 n)."\.Read.file.FILENAME.into.a.
1fe0 62 75 66 66 65 72 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 62 75 66 66 65 72 2e 0a 49 66 buffer.and.return.the.buffer..If
2000 20 61 20 62 75 66 66 65 72 20 65 78 69 73 74 73 20 76 69 73 69 74 69 6e 67 20 46 49 4c 45 4e 41 .a.buffer.exists.visiting.FILENA
2020 4d 45 2c 20 72 65 74 75 72 6e 20 74 68 61 74 20 6f 6e 65 2c 0a 62 75 74 20 76 65 72 69 66 79 20 ME,.return.that.one,.but.verify.
2040 74 68 61 74 20 74 68 65 20 66 69 6c 65 20 68 61 73 20 6e 6f 74 20 63 68 61 6e 67 65 64 20 73 69 that.the.file.has.not.changed.si
2060 6e 63 65 20 76 69 73 69 74 65 64 20 6f 72 20 73 61 76 65 64 2e 0a 54 68 65 20 62 75 66 66 65 72 nce.visited.or.saved..The.buffer
2080 20 69 73 20 6e 6f 74 20 73 65 6c 65 63 74 65 64 2c 20 6a 75 73 74 20 72 65 74 75 72 6e 65 64 20 .is.not.selected,.just.returned.
20a0 74 6f 20 74 68 65 20 63 61 6c 6c 65 72 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c8 08 21 89 to.the.caller.".(byte-code."..!.
20c0 10 88 c9 09 08 5c 22 85 18 00 ca cb 08 cc cd 21 53 ce 4f 21 21 85 24 00 08 cc cd 21 53 ce 4f 89 .....\"........!S.O!!.$....!S.O.
20e0 10 88 cf 08 21 83 3c 00 0a 83 35 00 d0 08 21 82 39 00 c4 d1 08 5c 22 82 9c 00 d2 08 21 ce 1c 1b ....!.<...5...!.9....\".....!...
2100 0b 83 7a 00 0d 86 77 00 d3 0b 21 86 77 00 ca 08 21 3f 83 5e 00 c4 d4 08 5c 22 82 77 00 d5 d6 0b ..z...w...!.w...!?.^....\".w....
2120 21 83 69 00 d7 82 6a 00 d8 21 85 77 00 8a 0b 71 88 d9 c6 c6 5c 22 29 82 99 00 8a da 08 21 89 13 !.i...j..!.w...q....\")......!..
2140 88 0b 71 88 db 20 88 ce dc dd 8f 88 cb 08 21 89 16 07 88 de 0c 0d 3f 5c 22 29 88 0b 2a 87 22 20 ..q...........!.......?\")..*.".
2160 5b 66 69 6c 65 6e 61 6d 65 20 61 75 74 6f 6d 6f 75 6e 74 2d 64 69 72 2d 70 72 65 66 69 78 20 66 [filename.automount-dir-prefix.f
2180 69 6e 64 2d 66 69 6c 65 2d 72 75 6e 2d 64 69 72 65 64 20 62 75 66 20 65 72 72 6f 72 20 6e 6f 77 ind-file-run-dired.buf.error.now
21a0 61 72 6e 20 74 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 65 78 70 61 6e 64 2d 66 arn.t.default-directory.expand-f
21c0 69 6c 65 2d 6e 61 6d 65 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 66 69 6c 65 2d 65 78 69 73 74 ile-name.string-match.file-exist
21e0 73 2d 70 20 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 6d 61 74 63 68 2d 65 6e s-p.file-name-directory.match-en
2200 64 20 30 20 6e 69 6c 20 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 64 69 72 65 64 2d 6e d.0.nil.file-directory-p.dired-n
2220 6f 73 65 6c 65 63 74 20 22 25 73 20 69 73 20 61 20 64 69 72 65 63 74 6f 72 79 2e 22 20 67 65 74 oselect."%s.is.a.directory.".get
2240 2d 66 69 6c 65 2d 62 75 66 66 65 72 20 76 65 72 69 66 79 2d 76 69 73 69 74 65 64 2d 66 69 6c 65 -file-buffer.verify-visited-file
2260 2d 6d 6f 64 74 69 6d 65 20 22 46 69 6c 65 20 25 73 20 6e 6f 20 6c 6f 6e 67 65 72 20 65 78 69 73 -modtime."File.%s.no.longer.exis
2280 74 73 21 22 20 79 65 73 2d 6f 72 2d 6e 6f 2d 70 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 ts!".yes-or-no-p.buffer-modified
22a0 2d 70 20 22 46 69 6c 65 20 68 61 73 20 63 68 61 6e 67 65 64 20 73 69 6e 63 65 20 6c 61 73 74 20 -p."File.has.changed.since.last.
22c0 76 69 73 69 74 65 64 20 6f 72 20 73 61 76 65 64 2e 20 20 46 6c 75 73 68 20 79 6f 75 72 20 63 68 visited.or.saved...Flush.your.ch
22e0 61 6e 67 65 73 3f 20 22 20 22 46 69 6c 65 20 68 61 73 20 63 68 61 6e 67 65 64 20 73 69 6e 63 65 anges?."."File.has.changed.since
2300 20 6c 61 73 74 20 76 69 73 69 74 65 64 20 6f 72 20 73 61 76 65 64 2e 20 20 52 65 61 64 20 66 72 .last.visited.or.saved...Read.fr
2320 6f 6d 20 64 69 73 6b 3f 20 22 20 72 65 76 65 72 74 2d 62 75 66 66 65 72 20 63 72 65 61 74 65 2d om.disk?.".revert-buffer.create-
2340 66 69 6c 65 2d 62 75 66 66 65 72 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 28 62 79 74 65 2d 63 file-buffer.erase-buffer.(byte-c
2360 6f 64 65 20 22 c2 08 c1 5c 22 87 22 20 5b 66 69 6c 65 6e 61 6d 65 20 74 20 69 6e 73 65 72 74 2d ode."...\".".[filename.t.insert-
2380 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 5d 20 33 29 20 28 28 66 69 6c 65 2d 65 72 72 6f 72 20 28 file-contents].3).((file-error.(
23a0 62 79 74 65 2d 63 6f 64 65 20 22 c1 89 10 88 0b 1a 0a 85 0f 00 c4 0a 40 21 3f 85 1a 00 0a 41 89 byte-code."............@!?....A.
23c0 12 88 82 06 00 29 87 22 20 5b 65 72 72 6f 72 20 74 20 68 6f 6f 6b 73 20 66 69 6e 64 2d 66 69 6c .....).".[error.t.hooks.find-fil
23e0 65 2d 6e 6f 74 2d 66 6f 75 6e 64 2d 68 6f 6f 6b 73 20 66 75 6e 63 61 6c 6c 5d 20 34 29 29 29 20 e-not-found-hooks.funcall].4))).
2400 61 66 74 65 72 2d 66 69 6e 64 2d 66 69 6c 65 5d 20 32 32 29 29 0a 0a 28 64 65 66 75 6e 20 61 66 after-find-file].22))..(defun.af
2420 74 65 72 2d 66 69 6e 64 2d 66 69 6c 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 65 72 72 6f 72 20 77 ter-find-file.(&optional.error.w
2440 61 72 6e 29 20 22 5c 0a 43 61 6c 6c 65 64 20 61 66 74 65 72 20 66 69 6e 64 69 6e 67 20 61 20 66 arn)."\.Called.after.finding.a.f
2460 69 6c 65 20 61 6e 64 20 62 79 20 74 68 65 20 64 65 66 61 75 6c 74 20 72 65 76 65 72 74 20 66 75 ile.and.by.the.default.revert.fu
2480 6e 63 74 69 6f 6e 2e 0a 53 65 74 73 20 62 75 66 66 65 72 20 6d 6f 64 65 2c 20 70 61 72 73 65 73 nction..Sets.buffer.mode,.parses
24a0 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 73 20 .local.variables..Optional.args.
24c0 45 52 52 4f 52 20 61 6e 64 20 57 41 52 4e 3a 20 45 52 52 4f 52 20 6e 6f 6e 2d 6e 69 6c 20 6d 65 ERROR.and.WARN:.ERROR.non-nil.me
24e0 61 6e 73 20 74 68 65 72 65 20 77 61 73 20 61 6e 0a 65 72 72 6f 72 20 69 6e 20 72 65 61 64 69 6e ans.there.was.an.error.in.readin
2500 67 20 74 68 65 20 66 69 6c 65 2e 20 20 57 41 52 4e 20 6e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 g.the.file...WARN.non-nil.means.
2520 77 61 72 6e 20 69 66 20 74 68 65 72 65 0a 65 78 69 73 74 73 20 61 6e 20 61 75 74 6f 2d 73 61 76 warn.if.there.exists.an.auto-sav
2540 65 20 66 69 6c 65 20 6d 6f 72 65 20 72 65 63 65 6e 74 20 74 68 61 6e 20 74 68 65 20 76 69 73 69 e.file.more.recent.than.the.visi
2560 74 65 64 20 66 69 6c 65 2e 0a 46 69 6e 69 73 68 65 73 20 62 79 20 63 61 6c 6c 69 6e 67 20 74 68 ted.file..Finishes.by.calling.th
2580 65 20 66 75 6e 63 74 69 6f 6e 73 20 69 6e 20 66 69 6e 64 2d 66 69 6c 65 2d 68 6f 6f 6b 73 2e 22 e.functions.in.find-file-hooks."
25a0 20 28 62 79 74 65 2d 63 6f 64 65 20 22 cc 09 21 3f 89 10 88 0a 83 0f 00 c3 82 79 00 c3 1c 08 3f .(byte-code."..!?.........y....?
25c0 83 38 00 0e 06 85 20 00 cd ce 20 09 5c 22 83 27 00 cf 82 35 00 c7 89 14 88 0e 08 83 34 00 d0 82 .8..........\".'...5........4...
25e0 35 00 c3 82 5e 00 0e 08 3f 83 46 00 c7 89 14 88 d1 82 5e 00 d2 09 21 83 50 00 d3 82 5e 00 d2 d4 5...^...?.F.......^...!.P...^...
2600 0e 09 21 21 83 5d 00 d5 82 5e 00 d6 1d 0d 85 6f 00 d7 0d 21 88 0c 86 6f 00 d8 d9 c7 5c 22 2a 88 ..!!.]...^.....o...!...o....\"*.
2620 0e 0a 85 79 00 da c7 21 88 db c7 21 88 dc dd 0e 0b 5c 22 87 22 20 5b 62 75 66 66 65 72 2d 72 65 ...y...!...!.....\".".[buffer-re
2640 61 64 2d 6f 6e 6c 79 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e 6f 6e 69 6e 74 65 ad-only.buffer-file-name.noninte
2660 72 61 63 74 69 76 65 20 6e 69 6c 20 6e 6f 74 2d 73 65 72 69 6f 75 73 20 6d 73 67 20 77 61 72 6e ractive.nil.not-serious.msg.warn
2680 20 74 20 65 72 72 6f 72 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 61 75 74 6f 2d .t.error.default-directory.auto-
26a0 73 61 76 65 2d 64 65 66 61 75 6c 74 20 66 69 6e 64 2d 66 69 6c 65 2d 68 6f 6f 6b 73 20 66 69 6c save-default.find-file-hooks.fil
26c0 65 2d 77 72 69 74 61 62 6c 65 2d 70 20 66 69 6c 65 2d 6e 65 77 65 72 2d 74 68 61 6e 2d 66 69 6c e-writable-p.file-newer-than-fil
26e0 65 2d 70 20 6d 61 6b 65 2d 61 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 41 75 e-p.make-auto-save-file-name."Au
2700 74 6f 20 73 61 76 65 20 66 69 6c 65 20 69 73 20 6e 65 77 65 72 3b 20 63 6f 6e 73 69 64 65 72 20 to.save.file.is.newer;.consider.
2720 4d 2d 78 20 72 65 63 6f 76 65 72 2d 66 69 6c 65 22 20 22 28 4e 65 77 20 66 69 6c 65 29 22 20 22 M-x.recover-file"."(New.file)"."
2740 46 69 6c 65 20 69 73 20 77 72 69 74 65 20 70 72 6f 74 65 63 74 65 64 22 20 66 69 6c 65 2d 61 74 File.is.write.protected".file-at
2760 74 72 69 62 75 74 65 73 20 22 46 69 6c 65 20 65 78 69 73 74 73 2c 20 62 75 74 20 69 73 20 72 65 tributes."File.exists,.but.is.re
2780 61 64 2d 70 72 6f 74 65 63 74 65 64 2e 22 20 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 2d 6e 61 ad-protected.".directory-file-na
27a0 6d 65 20 22 46 69 6c 65 20 6e 6f 74 20 66 6f 75 6e 64 20 61 6e 64 20 64 69 72 65 63 74 6f 72 79 me."File.not.found.and.directory
27c0 20 77 72 69 74 65 2d 70 72 6f 74 65 63 74 65 64 22 20 22 46 69 6c 65 20 6e 6f 74 20 66 6f 75 6e .write-protected"."File.not.foun
27e0 64 20 61 6e 64 20 64 69 72 65 63 74 6f 72 79 20 64 6f 65 73 6e 27 74 20 65 78 69 73 74 22 20 6d d.and.directory.doesn't.exist".m
2800 65 73 73 61 67 65 20 73 69 74 2d 66 6f 72 20 31 20 61 75 74 6f 2d 73 61 76 65 2d 6d 6f 64 65 20 essage.sit-for.1.auto-save-mode.
2820 6e 6f 72 6d 61 6c 2d 6d 6f 64 65 20 6d 61 70 63 61 72 20 66 75 6e 63 61 6c 6c 5d 20 31 33 29 29 normal-mode.mapcar.funcall].13))
2840 0a 0a 28 64 65 66 75 6e 20 6e 6f 72 6d 61 6c 2d 6d 6f 64 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 ..(defun.normal-mode.(&optional.
2860 66 69 6e 64 2d 66 69 6c 65 29 20 22 5c 0a 43 68 6f 6f 73 65 20 74 68 65 20 6d 61 6a 6f 72 20 6d find-file)."\.Choose.the.major.m
2880 6f 64 65 20 66 6f 72 20 74 68 69 73 20 62 75 66 66 65 72 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c ode.for.this.buffer.automaticall
28a0 79 2e 0a 41 6c 73 6f 20 73 65 74 73 20 75 70 20 61 6e 79 20 73 70 65 63 69 66 69 65 64 20 6c 6f y..Also.sets.up.any.specified.lo
28c0 63 61 6c 20 76 61 72 69 61 62 6c 65 73 20 6f 66 20 74 68 65 20 66 69 6c 65 2e 0a 55 73 65 73 20 cal.variables.of.the.file..Uses.
28e0 74 68 65 20 76 69 73 69 74 65 64 20 66 69 6c 65 20 6e 61 6d 65 2c 20 74 68 65 20 2d 2a 2d 20 6c the.visited.file.name,.the.-*-.l
2900 69 6e 65 2c 20 61 6e 64 20 74 68 65 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 20 73 70 65 ine,.and.the.local.variables.spe
2920 63 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 20 61 75 74 6f c...This.function.is.called.auto
2940 6d 61 74 69 63 61 6c 6c 79 20 66 72 6f 6d 20 60 66 69 6e 64 2d 66 69 6c 65 27 2e 20 20 49 6e 20 matically.from.`find-file'...In.
2960 74 68 61 74 20 63 61 73 65 2c 0a 69 66 20 60 69 6e 68 69 62 69 74 2d 6c 6f 63 61 6c 2d 76 61 72 that.case,.if.`inhibit-local-var
2980 69 61 62 6c 65 73 27 20 69 73 20 6e 6f 6e 2d 60 6e 69 6c 27 20 77 65 20 72 65 71 75 69 72 65 20 iables'.is.non-`nil'.we.require.
29a0 63 6f 6e 66 69 72 6d 61 74 69 6f 6e 20 62 65 66 6f 72 65 0a 70 72 6f 63 65 73 73 69 6e 67 20 61 confirmation.before.processing.a
29c0 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 20 73 70 65 63 2e 20 20 49 66 20 79 6f 75 20 72 .local.variables.spec...If.you.r
29e0 75 6e 20 60 6e 6f 72 6d 61 6c 2d 6d 6f 64 65 27 20 65 78 70 6c 69 63 69 74 6c 79 2c 0a 63 6f 6e un.`normal-mode'.explicitly,.con
2a00 66 69 72 6d 61 74 69 6f 6e 20 69 73 20 6e 65 76 65 72 20 72 65 71 75 69 72 65 64 2e 22 20 28 69 firmation.is.never.required.".(i
2a20 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 08 86 0d 00 c3 09 nteractive).(byte-code."........
2a40 86 0c 00 c4 21 88 c5 c6 c7 8f 88 c5 c8 c9 8f 87 22 20 5b 66 69 6e 64 2d 66 69 6c 65 20 64 65 66 ....!...........".[find-file.def
2a60 61 75 6c 74 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6e 69 6c 20 66 75 6e 63 61 6c 6c 20 66 75 6e 64 ault-major-mode.nil.funcall.fund
2a80 61 6d 65 6e 74 61 6c 2d 6d 6f 64 65 20 65 72 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 20 87 amental-mode.err.(byte-code."...
2aa0 22 20 5b 73 65 74 2d 61 75 74 6f 2d 6d 6f 64 65 5d 20 32 29 20 28 28 65 72 72 6f 72 20 28 62 79 ".[set-auto-mode].2).((error.(by
2ac0 74 65 2d 63 6f 64 65 20 22 c1 c2 c3 08 21 5c 22 87 22 20 5b 65 72 72 20 6d 65 73 73 61 67 65 20 te-code."....!\".".[err.message.
2ae0 22 46 69 6c 65 20 6d 6f 64 65 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 20 65 72 72 6f 72 3a 20 "File.mode.specification.error:.
2b00 25 73 22 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 5d 20 34 29 29 29 20 28 62 79 74 65 2d %s".prin1-to-string].4))).(byte-
2b20 63 6f 64 65 20 22 c1 08 3f 21 87 22 20 5b 66 69 6e 64 2d 66 69 6c 65 20 68 61 63 6b 2d 6c 6f 63 code."..?!.".[find-file.hack-loc
2b40 61 6c 2d 76 61 72 69 61 62 6c 65 73 5d 20 32 29 20 28 28 65 72 72 6f 72 20 28 62 79 74 65 2d 63 al-variables].2).((error.(byte-c
2b60 6f 64 65 20 22 c1 c2 c3 08 21 5c 22 87 22 20 5b 65 72 72 20 6d 65 73 73 61 67 65 20 22 46 69 6c ode."....!\".".[err.message."Fil
2b80 65 20 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 65 72 72 6f 72 3a 20 25 73 22 20 70 72 69 e.local-variables.error:.%s".pri
2ba0 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 5d 20 34 29 29 29 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 n1-to-string].4)))].4))..(defun.
2bc0 73 65 74 2d 61 75 74 6f 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 53 65 6c 65 63 74 20 6d 61 6a 6f set-auto-mode.nil."\.Select.majo
2be0 72 20 6d 6f 64 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 66 6f 72 20 63 75 72 72 65 6e 74 20 62 r.mode.appropriate.for.current.b
2c00 75 66 66 65 72 2e 0a 4d 61 79 20 62 61 73 65 20 64 65 63 69 73 69 6f 6e 20 6f 6e 20 76 69 73 69 uffer..May.base.decision.on.visi
2c20 74 65 64 20 66 69 6c 65 20 6e 61 6d 65 20 28 53 65 65 20 76 61 72 69 61 62 6c 65 20 20 61 75 74 ted.file.name.(See.variable..aut
2c40 6f 2d 6d 6f 64 65 2d 6c 69 73 74 29 0a 6f 72 20 6f 6e 20 62 75 66 66 65 72 20 63 6f 6e 74 65 6e o-mode-list).or.on.buffer.conten
2c60 74 73 20 28 2d 2a 2d 20 6c 69 6e 65 20 6f 72 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 20 ts.(-*-.line.or.local.variables.
2c80 73 70 65 63 29 2c 20 62 75 74 20 64 6f 65 73 20 6e 6f 74 20 6c 6f 6f 6b 0a 66 6f 72 20 74 68 65 spec),.but.does.not.look.for.the
2ca0 20 5c 22 6d 6f 64 65 3a 5c 22 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 2e 20 20 46 6f 72 20 .\"mode:\".local.variable...For.
2cc0 74 68 61 74 2c 20 75 73 65 20 20 68 61 63 6b 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 2e that,.use..hack-local-variables.
2ce0 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ca ca ca 1a 19 18 8a 65 62 88 cb cc 21 88 cd ce 8a cf ".(byte-code.".......eb...!.....
2d00 20 88 60 29 c3 23 85 81 00 cb d0 21 88 60 89 10 88 cd ce 8a cf 20 88 60 29 c3 23 85 81 00 d1 d2 ..`).#.....!.`.........`).#.....
2d20 21 88 d3 d0 21 88 60 89 11 88 08 62 88 cd d4 09 c3 23 83 7b 00 08 62 88 c3 1c cd d5 09 c3 23 29 !...!.`....b.....#.{..b.......#)
2d40 85 78 00 cb d0 21 88 60 89 10 88 cd d6 09 c3 23 83 6b 00 d1 d7 21 82 6d 00 09 62 88 d3 d0 21 88 .x...!.`.......#.k...!.m..b...!.
2d60 d8 08 60 5c 22 89 12 82 81 00 d8 08 09 5c 22 89 12 83 90 00 d9 da db 0a 21 dc 50 21 21 82 cf 00 ..`\"........\".........!.P!!...
2d80 0e 06 0e 08 1e 07 1d 0e 09 dd 3d 1c de 0e 07 21 89 16 07 88 0a 3f 85 aa 00 0d 85 c5 00 df 0d 40 ..........=....!.....?.........@
2da0 40 0e 07 5c 22 85 bc 00 0d 40 41 89 12 88 0d 41 89 15 88 82 a4 00 29 88 0a 85 ce 00 d9 0a 21 2a @..\"....@A....A......).......!*
2dc0 29 2b 87 22 20 5b 62 65 67 20 65 6e 64 20 6d 6f 64 65 20 74 20 63 61 73 65 2d 66 6f 6c 64 2d 73 )+.".[beg.end.mode.t.case-fold-s
2de0 65 61 72 63 68 20 61 6c 69 73 74 20 61 75 74 6f 2d 6d 6f 64 65 2d 61 6c 69 73 74 20 6e 61 6d 65 earch.alist.auto-mode-alist.name
2e00 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 73 79 73 74 65 6d 2d 74 79 70 65 20 6e 69 .buffer-file-name.system-type.ni
2e20 6c 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 0a 22 20 73 65 61 72 63 l.skip-chars-forward."...".searc
2e40 68 2d 66 6f 72 77 61 72 64 20 22 2d 2a 2d 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 22 20 09 22 h-forward."-*-".end-of-line.".."
2e60 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 2d 33 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b .forward-char.-3.skip-chars-back
2e80 77 61 72 64 20 22 3a 22 20 22 6d 6f 64 65 3a 22 20 22 3b 22 20 2d 31 20 62 75 66 66 65 72 2d 73 ward.":"."mode:".";".-1.buffer-s
2ea0 75 62 73 74 72 69 6e 67 20 66 75 6e 63 61 6c 6c 20 69 6e 74 65 72 6e 20 64 6f 77 6e 63 61 73 65 ubstring.funcall.intern.downcase
2ec0 20 22 2d 6d 6f 64 65 22 20 76 61 78 2d 76 6d 73 20 66 69 6c 65 2d 6e 61 6d 65 2d 73 61 6e 73 2d ."-mode".vax-vms.file-name-sans-
2ee0 76 65 72 73 69 6f 6e 73 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 5d 20 32 34 29 29 0a 0a 28 64 65 versions.string-match].24))..(de
2f00 66 75 6e 20 68 61 63 6b 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 28 26 6f 70 74 69 6f fun.hack-local-variables.(&optio
2f20 6e 61 6c 20 66 6f 72 63 65 29 20 22 5c 0a 50 61 72 73 65 2c 20 61 6e 64 20 62 69 6e 64 20 6f 72 nal.force)."\.Parse,.and.bind.or
2f40 20 65 76 61 6c 75 61 74 65 20 61 73 20 61 70 70 72 6f 70 72 69 61 74 65 2c 20 61 6e 79 20 6c 6f .evaluate.as.appropriate,.any.lo
2f60 63 61 6c 20 76 61 72 69 61 62 6c 65 73 0a 66 6f 72 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 cal.variables.for.current.buffer
2f80 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 8a 64 62 88 d0 d1 64 d2 5a 65 5d d3 23 88 c1 18 d4 .".(byte-code.".db...d.Ze].#....
2fa0 d5 c2 c1 23 85 23 00 0b 3f 86 23 00 0c 86 23 00 d6 8b 29 85 70 01 c1 c2 c2 c2 c2 1e 0a 1e 09 1e ...#.#..?.#...#...).p...........
2fc0 08 1e 07 1e 06 d7 d8 21 88 6c 86 48 00 d9 60 da 20 88 60 5c 22 89 16 09 88 db dc 21 62 88 6e 86 .......!.l.H..`...`\"......!b.n.
2fe0 5c 5c 00 d9 60 dd 20 88 60 5c 22 89 16 07 88 0e 07 85 6e 00 0e 07 47 16 08 de 0e 07 21 89 16 07 \\..`...`\".......n...G.....!...
3000 88 0e 09 85 7d 00 de 0e 09 21 df 50 89 16 09 88 0e 06 85 6f 01 0e 0b 83 8e 00 e0 e1 21 82 91 00 ....}....!.P.......o........!...
3020 e2 e3 21 88 0e 07 85 a8 00 e4 0e 07 21 83 a5 00 e5 0e 08 21 82 a8 00 e6 e7 21 88 d7 d8 21 88 60 ..!.........!......!.....!...!.`
3040 89 16 0a 88 d7 e8 21 88 6c 85 bd 00 e6 e9 21 88 ea d8 21 88 d9 0e 0a 60 5c 22 1e 0c eb 0e 0c 21 ......!.l.....!...!....`\".....!
3060 1e 0d c2 1e 0e ec ed 0e 0c 21 ee 5c 22 83 e3 00 c2 89 16 06 82 6a 01 d7 ef 21 88 e5 e3 21 88 eb .........!.\"........j...!...!..
3080 70 21 89 16 0e 88 ea f0 21 88 d7 d8 21 88 0e 09 83 06 01 e4 0e 09 21 82 07 01 6c 86 0d 01 e6 f1 p!......!...!.........!...l.....
30a0 21 88 0e 0d f2 3d 83 24 01 f3 f4 ed f5 0e 0e 21 21 f6 50 21 21 82 6a 01 0e 0d c4 3d 83 2f 01 c2 !....=.$.......!!.P!!.j....=./..
30c0 82 6a 01 0e 0d cf 3d 83 3a 01 c2 82 6a 01 0e 0d f7 3d 83 60 01 0e 0f 85 48 01 0c 3f 86 50 01 f8 .j....=.:...j....=.`....H..?.P..
30e0 f9 20 fa 5c 22 83 59 01 fb fc 21 82 5d 01 f7 0e 0e 21 82 6a 01 fd 0e 0d 21 88 0e 0d 0e 0e 4c 2b ...\".Y...!.]....!.j....!.....L+
3100 88 82 7e 00 2d 29 87 22 20 5b 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 74 20 6e 69 6c ..~.-).".[case-fold-search.t.nil
3120 20 69 6e 68 69 62 69 74 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 66 6f 72 63 65 20 62 .inhibit-local-variables.force.b
3140 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 63 6f 6e 74 69 6e 75 65 20 70 72 65 66 69 78 20 uffer-file-name.continue.prefix.
3160 70 72 65 66 69 78 6c 65 6e 20 73 75 66 66 69 78 20 62 65 67 20 73 65 6c 65 63 74 69 76 65 2d 64 prefixlen.suffix.beg.selective-d
3180 69 73 70 6c 61 79 20 73 74 72 20 76 61 72 20 76 61 6c 20 69 67 6e 6f 72 65 2d 6c 6f 63 61 6c 2d isplay.str.var.val.ignore-local-
31a0 65 76 61 6c 20 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 0a 0c 22 20 33 30 30 30 20 6d eval.search-backward."..".3000.m
31c0 6f 76 65 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 4c 6f 63 61 6c 20 56 61 72 69 61 62 ove.search-forward."Local.Variab
31e0 6c 65 73 3a 22 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 70 21 88 8a c2 20 88 c3 c4 20 60 5c les:".((byte-code.".p!........`\
3200 22 29 88 c5 c6 c7 c8 08 21 5c 22 21 87 22 20 5b 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 ")......!\"!.".[buffer-file-name
3220 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c .switch-to-buffer.beginning-of-l
3240 69 6e 65 20 73 65 74 2d 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 73 65 6c 65 63 74 65 64 2d 77 69 ine.set-window-start.selected-wi
3260 6e 64 6f 77 20 79 2d 6f 72 2d 6e 2d 70 20 66 6f 72 6d 61 74 20 22 53 65 74 20 6c 6f 63 61 6c 20 ndow.y-or-n-p.format."Set.local.
3280 76 61 72 69 61 62 6c 65 73 20 61 73 20 73 70 65 63 69 66 69 65 64 20 61 74 20 65 6e 64 20 6f 66 variables.as.specified.at.end.of
32a0 20 25 73 3f 20 22 20 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 5d 20 39 .%s?.".file-name-nondirectory].9
32c0 29 29 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 20 62 75 66 66 65 )).skip-chars-forward."..".buffe
32e0 72 2d 73 75 62 73 74 72 69 6e 67 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 6d 61 74 63 68 2d 62 65 r-substring.end-of-line.match-be
3300 67 69 6e 6e 69 6e 67 20 30 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 72 65 67 65 ginning.0.beginning-of-line.rege
3320 78 70 2d 71 75 6f 74 65 20 22 24 22 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 xp-quote."$".re-search-forward."
3340 5b 0a 0d 5d 22 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 [..]".forward-line.1.looking-at.
3360 66 6f 72 77 61 72 64 2d 63 68 61 72 20 65 72 72 6f 72 20 22 4c 6f 63 61 6c 20 76 61 72 69 61 62 forward-char.error."Local.variab
3380 6c 65 73 20 65 6e 74 72 79 20 69 73 20 6d 69 73 73 69 6e 67 20 74 68 65 20 70 72 65 66 69 78 22 les.entry.is.missing.the.prefix"
33a0 20 22 5e 3a 0a 22 20 22 4d 69 73 73 69 6e 67 20 63 6f 6c 6f 6e 20 69 6e 20 6c 6f 63 61 6c 20 76 ."^:."."Missing.colon.in.local.v
33c0 61 72 69 61 62 6c 65 73 20 65 6e 74 72 79 22 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 ariables.entry".skip-chars-backw
33e0 61 72 64 20 72 65 61 64 20 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 64 6f 77 6e 63 61 73 65 20 22 ard.read.string-equal.downcase."
3400 65 6e 64 22 20 22 5e 3a 22 20 22 0a 22 20 22 4c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 20 65 end"."^:"."."."Local.variables.e
3420 6e 74 72 79 20 69 73 20 74 65 72 6d 69 6e 61 74 65 64 20 69 6e 63 6f 72 72 65 63 74 6c 79 22 20 ntry.is.terminated.incorrectly".
3440 6d 6f 64 65 20 66 75 6e 63 61 6c 6c 20 69 6e 74 65 72 6e 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 mode.funcall.intern.symbol-name.
3460 22 2d 6d 6f 64 65 22 20 65 76 61 6c 20 73 74 72 69 6e 67 3d 20 75 73 65 72 2d 6c 6f 67 69 6e 2d "-mode".eval.string=.user-login-
3480 6e 61 6d 65 20 22 72 6f 6f 74 22 20 6d 65 73 73 61 67 65 20 22 49 67 6e 6f 72 69 6e 67 20 60 65 name."root".message."Ignoring.`e
34a0 76 61 6c 3a 27 20 69 6e 20 66 69 6c 65 27 73 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 22 val:'.in.file's.local.variables"
34c0 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 5d 20 34 32 29 29 0a 0a 28 64 65 66 .make-local-variable].42))..(def
34e0 75 6e 20 73 65 74 2d 76 69 73 69 74 65 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 66 69 6c 65 6e 61 un.set-visited-file-name.(filena
3500 6d 65 29 20 22 5c 0a 43 68 61 6e 67 65 20 6e 61 6d 65 20 6f 66 20 66 69 6c 65 20 76 69 73 69 74 me)."\.Change.name.of.file.visit
3520 65 64 20 69 6e 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 74 6f 20 46 49 4c 45 4e 41 4d 45 ed.in.current.buffer.to.FILENAME
3540 2e 0a 54 68 65 20 6e 65 78 74 20 74 69 6d 65 20 74 68 65 20 62 75 66 66 65 72 20 69 73 20 73 61 ..The.next.time.the.buffer.is.sa
3560 76 65 64 20 69 74 20 77 69 6c 6c 20 67 6f 20 69 6e 20 74 68 65 20 6e 65 77 6c 79 20 73 70 65 63 ved.it.will.go.in.the.newly.spec
3580 69 66 69 65 64 20 66 69 6c 65 2e 0a 6e 69 6c 20 6f 72 20 65 6d 70 74 79 20 73 74 72 69 6e 67 20 ified.file..nil.or.empty.string.
35a0 61 73 20 61 72 67 75 6d 65 6e 74 20 6d 65 61 6e 73 20 6d 61 6b 65 20 62 75 66 66 65 72 20 6e 6f as.argument.means.make.buffer.no
35c0 74 20 62 65 20 76 69 73 69 74 69 6e 67 20 61 6e 79 20 66 69 6c 65 2e 0a 52 65 6d 65 6d 62 65 72 t.be.visiting.any.file..Remember
35e0 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65 20 69 6e 69 74 69 61 6c 20 63 6f 6e 74 65 6e 74 73 20 .to.delete.the.initial.contents.
3600 6f 66 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 0a 69 66 20 79 6f 75 20 77 69 73 68 20 74 6f of.the.minibuffer.if.you.wish.to
3620 20 70 61 73 73 20 61 6e 20 65 6d 70 74 79 20 73 74 72 69 6e 67 20 61 73 20 74 68 65 20 61 72 67 .pass.an.empty.string.as.the.arg
3640 75 6d 65 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 46 53 65 74 20 76 69 73 69 74 ument.".(interactive."FSet.visit
3660 65 64 20 66 69 6c 65 20 6e 61 6d 65 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 ed.file.name:.").(byte-code."...
3680 85 16 00 ca 08 cb 5c 22 83 11 00 c1 82 14 00 cc 08 21 89 10 88 cd 08 0a 5c 22 86 29 00 08 3f 86 ......\".........!......\".)..?.
36a0 29 00 ce 08 21 88 cf 20 88 08 83 6b 00 d0 08 21 1b d1 0b cb 5c 22 85 3c 00 d2 d3 21 88 d4 08 21 )...!......k...!....\".<...!...!
36c0 85 47 00 d2 d5 08 5c 22 88 0c d6 3d 85 53 00 d7 0b 21 89 13 88 08 89 12 88 d8 0a 21 89 15 88 d9 .G....\"...=.S...!.........!....
36e0 0b 21 86 67 00 da 0b 21 29 82 6e 00 c1 89 12 88 c1 89 16 06 88 db 20 88 dc dd 21 88 dc de 21 88 .!.g...!).n...............!...!.
3700 0e 07 83 89 00 df 20 82 91 00 e0 0a 85 90 00 0e 08 21 88 0a 85 99 00 e1 c9 21 87 22 20 5b 66 69 .................!.......!.".[fi
3720 6c 65 6e 61 6d 65 20 6e 69 6c 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e 65 77 2d lename.nil.buffer-file-name.new-
3740 6e 61 6d 65 20 73 79 73 74 65 6d 2d 74 79 70 65 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f name.system-type.default-directo
3760 72 79 20 62 75 66 66 65 72 2d 62 61 63 6b 65 64 2d 75 70 20 62 75 66 66 65 72 2d 61 75 74 6f 2d ry.buffer-backed-up.buffer-auto-
3780 73 61 76 65 2d 66 69 6c 65 2d 6e 61 6d 65 20 61 75 74 6f 2d 73 61 76 65 2d 64 65 66 61 75 6c 74 save-file-name.auto-save-default
37a0 20 74 20 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 22 22 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e .t.string-equal."".expand-file-n
37c0 61 6d 65 20 65 71 75 61 6c 20 6c 6f 63 6b 2d 62 75 66 66 65 72 20 75 6e 6c 6f 63 6b 2d 62 75 66 ame.equal.lock-buffer.unlock-buf
37e0 66 65 72 20 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 73 74 72 69 6e fer.file-name-nondirectory.strin
3800 67 3d 20 65 72 72 6f 72 20 22 45 6d 70 74 79 20 66 69 6c 65 20 6e 61 6d 65 22 20 66 69 6c 65 2d g=.error."Empty.file.name".file-
3820 64 69 72 65 63 74 6f 72 79 2d 70 20 22 46 69 6c 65 20 25 73 20 69 73 20 61 20 64 69 72 65 63 74 directory-p."File.%s.is.a.direct
3840 6f 72 79 22 20 76 61 78 2d 76 6d 73 20 64 6f 77 6e 63 61 73 65 20 66 69 6c 65 2d 6e 61 6d 65 2d ory".vax-vms.downcase.file-name-
3860 64 69 72 65 63 74 6f 72 79 20 67 65 74 2d 62 75 66 66 65 72 20 72 65 6e 61 6d 65 2d 62 75 66 66 directory.get-buffer.rename-buff
3880 65 72 20 63 6c 65 61 72 2d 76 69 73 69 74 65 64 2d 66 69 6c 65 2d 6d 6f 64 74 69 6d 65 20 6b 69 er.clear-visited-file-modtime.ki
38a0 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 77 72 69 74 65 2d 66 69 6c 65 2d 68 6f 6f ll-local-variable.write-file-hoo
38c0 6b 73 20 72 65 76 65 72 74 2d 62 75 66 66 65 72 2d 66 75 6e 63 74 69 6f 6e 20 72 65 6e 61 6d 65 ks.revert-buffer-function.rename
38e0 2d 61 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 20 61 75 74 6f 2d 73 61 76 65 2d 6d 6f 64 65 20 73 -auto-save-file.auto-save-mode.s
3900 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 5d 20 32 31 29 29 0a 0a 28 64 65 66 et-buffer-modified-p].21))..(def
3920 75 6e 20 77 72 69 74 65 2d 66 69 6c 65 20 28 66 69 6c 65 6e 61 6d 65 29 20 22 5c 0a 57 72 69 74 un.write-file.(filename)."\.Writ
3940 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 69 6e 74 6f 20 66 69 6c 65 20 46 49 4c 45 4e e.current.buffer.into.file.FILEN
3960 41 4d 45 2e 0a 4d 61 6b 65 73 20 62 75 66 66 65 72 20 76 69 73 69 74 20 74 68 61 74 20 66 69 6c AME..Makes.buffer.visit.that.fil
3980 65 2c 20 61 6e 64 20 6d 61 72 6b 73 20 69 74 20 6e 6f 74 20 6d 6f 64 69 66 69 65 64 2e 22 20 28 e,.and.marks.it.not.modified.".(
39a0 69 6e 74 65 72 61 63 74 69 76 65 20 22 46 57 72 69 74 65 20 66 69 6c 65 3a 20 22 29 20 28 62 79 interactive."FWrite.file:.").(by
39c0 74 65 2d 63 6f 64 65 20 22 c2 88 08 3f 86 11 00 c3 08 c4 5c 22 86 11 00 c5 08 21 88 c6 c1 21 88 te-code."...?......\".....!...!.
39e0 c7 20 87 22 20 5b 66 69 6c 65 6e 61 6d 65 20 74 20 6e 69 6c 20 73 74 72 69 6e 67 2d 65 71 75 61 ...".[filename.t.nil.string-equa
3a00 6c 20 22 22 20 73 65 74 2d 76 69 73 69 74 65 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 73 65 74 2d 62 l."".set-visited-file-name.set-b
3a20 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 73 61 76 65 2d 62 75 66 66 65 72 5d 20 35 29 uffer-modified-p.save-buffer].5)
3a40 29 0a 0a 28 64 65 66 75 6e 20 62 61 63 6b 75 70 2d 62 75 66 66 65 72 20 6e 69 6c 20 22 5c 0a 4d )..(defun.backup-buffer.nil."\.M
3a60 61 6b 65 20 61 20 62 61 63 6b 75 70 20 6f 66 20 74 68 65 20 64 69 73 6b 20 66 69 6c 65 20 76 69 ake.a.backup.of.the.disk.file.vi
3a80 73 69 74 65 64 20 62 79 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2c 20 69 66 20 sited.by.the.current.buffer,.if.
3aa0 61 70 70 72 6f 70 72 69 61 74 65 2e 0a 54 68 69 73 20 69 73 20 6e 6f 72 6d 61 6c 6c 79 20 64 6f appropriate..This.is.normally.do
3ac0 6e 65 20 62 65 66 6f 72 65 20 73 61 76 69 6e 67 20 74 68 65 20 62 75 66 66 65 72 20 74 68 65 20 ne.before.saving.the.buffer.the.
3ae0 66 69 72 73 74 20 74 69 6d 65 2e 0a 49 66 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 6e 6f 6e 2d first.time..If.the.value.is.non-
3b00 6e 69 6c 2c 20 69 74 20 69 73 20 74 68 65 20 72 65 73 75 6c 74 20 6f 66 20 60 66 69 6c 65 2d 6d nil,.it.is.the.result.of.`file-m
3b20 6f 64 65 73 27 20 6f 6e 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 66 69 6c 65 3b 0a 74 68 69 73 odes'.on.the.original.file;.this
3b40 20 6d 65 61 6e 73 20 74 68 61 74 20 74 68 65 20 63 61 6c 6c 65 72 2c 20 61 66 74 65 72 20 73 61 .means.that.the.caller,.after.sa
3b60 76 69 6e 67 20 74 68 65 20 62 75 66 66 65 72 2c 20 73 68 6f 75 6c 64 20 63 68 61 6e 67 65 20 74 ving.the.buffer,.should.change.t
3b80 68 65 20 6d 6f 64 65 73 0a 6f 66 20 74 68 65 20 6e 65 77 20 66 69 6c 65 20 74 6f 20 61 67 72 65 he.modes.of.the.new.file.to.agre
3ba0 65 20 77 69 74 68 20 74 68 65 20 6f 6c 64 20 6d 6f 64 65 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 e.with.the.old.modes.".(byte-cod
3bc0 65 20 22 08 85 32 00 09 3f 85 32 00 c3 0a 21 85 32 00 c4 c5 0a 21 c6 5c 22 c7 48 c8 3e 85 32 00 e."..2..?.2...!.2....!.\".H.>.2.
3be0 0a 47 c9 57 86 2b 00 ca cb 0a c7 c9 4f 5c 22 3f 85 32 00 cc cd ce 8f 87 22 20 5b 6d 61 6b 65 2d .G.W.+......O\"?.2......".[make-
3c00 62 61 63 6b 75 70 2d 66 69 6c 65 73 20 62 75 66 66 65 72 2d 62 61 63 6b 65 64 2d 75 70 20 62 75 backup-files.buffer-backed-up.bu
3c20 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 65 6c 74 ffer-file-name.file-exists-p.elt
3c40 20 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 73 20 38 20 30 20 28 34 35 20 31 30 38 29 20 35 20 .file-attributes.8.0.(45.108).5.
3c60 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 22 2f 74 6d 70 2f 22 20 6e 69 6c 20 28 62 79 74 65 2d 63 string-equal."/tmp/".nil.(byte-c
3c80 6f 64 65 20 22 c8 09 21 18 08 40 1a 08 41 1b c9 1c c9 ca cb 8f 88 c6 89 15 88 0b 85 24 00 0e 07 ode."..!..@..A..............$...
3ca0 86 24 00 cc cd ce 09 5c 22 21 85 38 00 0b 85 38 00 c9 cf d0 8f 88 0b 41 89 13 88 82 27 00 88 0c .$.....\"!.8...8.......A....'...
3cc0 2c 87 22 20 5b 62 61 63 6b 75 70 2d 69 6e 66 6f 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d ,.".[backup-info.buffer-file-nam
3ce0 65 20 62 61 63 6b 75 70 6e 61 6d 65 20 74 61 72 67 65 74 73 20 73 65 74 6d 6f 64 65 73 20 62 75 e.backupname.targets.setmodes.bu
3d00 66 66 65 72 2d 62 61 63 6b 65 64 2d 75 70 20 74 20 74 72 69 6d 2d 76 65 72 73 69 6f 6e 73 2d 77 ffer-backed-up.t.trim-versions-w
3d20 69 74 68 6f 75 74 2d 61 73 6b 69 6e 67 20 66 69 6e 64 2d 62 61 63 6b 75 70 2d 66 69 6c 65 2d 6e ithout-asking.find-backup-file-n
3d40 61 6d 65 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 86 30 00 c9 09 21 86 30 00 0a 86 ame.nil.(byte-code."..0...!.0...
3d60 30 00 0b 85 17 00 ca 09 21 cb 56 86 30 00 0c 85 30 00 cc 09 21 1d cd 0d 38 86 2f 00 ce cf 0d 38 0.......!.V.0...0...!...8./....8
3d80 d0 20 5c 22 29 83 3d 00 d1 09 0e 06 c7 c7 24 82 50 00 d2 d3 d4 8f 88 d5 09 0e 06 c7 23 88 d6 0e ..\").=.......$.P...........#...
3da0 06 21 89 16 08 87 22 20 5b 66 69 6c 65 2d 70 72 65 63 69 6f 75 73 2d 66 6c 61 67 20 62 75 66 66 .!....".[file-precious-flag.buff
3dc0 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 62 61 63 6b 75 70 2d 62 79 2d 63 6f 70 79 69 6e 67 20 62 er-file-name.backup-by-copying.b
3de0 61 63 6b 75 70 2d 62 79 2d 63 6f 70 79 69 6e 67 2d 77 68 65 6e 2d 6c 69 6e 6b 65 64 20 62 61 63 ackup-by-copying-when-linked.bac
3e00 6b 75 70 2d 62 79 2d 63 6f 70 79 69 6e 67 2d 77 68 65 6e 2d 6d 69 73 6d 61 74 63 68 20 61 74 74 kup-by-copying-when-mismatch.att
3e20 72 20 62 61 63 6b 75 70 6e 61 6d 65 20 74 20 73 65 74 6d 6f 64 65 73 20 66 69 6c 65 2d 73 79 6d r.backupname.t.setmodes.file-sym
3e40 6c 69 6e 6b 2d 70 20 66 69 6c 65 2d 6e 6c 69 6e 6b 73 20 31 20 66 69 6c 65 2d 61 74 74 72 69 62 link-p.file-nlinks.1.file-attrib
3e60 75 74 65 73 20 39 20 2f 3d 20 32 20 75 73 65 72 2d 75 69 64 20 63 6f 70 79 2d 66 69 6c 65 20 6e utes.9./=.2.user-uid.copy-file.n
3e80 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 62 61 63 6b 75 70 6e 61 6d 65 il.(byte-code."..!.".[backupname
3ea0 20 64 65 6c 65 74 65 2d 66 69 6c 65 5d 20 32 29 20 28 28 66 69 6c 65 2d 65 72 72 6f 72 20 28 62 .delete-file].2).((file-error.(b
3ec0 79 74 65 2d 63 6f 64 65 20 22 c0 87 22 20 5b 6e 69 6c 5d 20 31 29 29 29 20 72 65 6e 61 6d 65 2d yte-code."..".[nil].1))).rename-
3ee0 66 69 6c 65 20 66 69 6c 65 2d 6d 6f 64 65 73 5d 20 31 30 29 20 28 28 66 69 6c 65 2d 65 72 72 6f file.file-modes].10).((file-erro
3f00 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 c4 21 89 10 88 c5 c6 21 88 c7 c8 21 88 c9 ca cb 8f r.(byte-code."..!.....!...!.....
3f20 88 cc 09 08 c2 c2 24 87 22 20 5b 62 61 63 6b 75 70 6e 61 6d 65 20 62 75 66 66 65 72 2d 66 69 6c ......$.".[backupname.buffer-fil
3f40 65 2d 6e 61 6d 65 20 74 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 7e 2f 25 62 61 e-name.t.expand-file-name."~/%ba
3f60 63 6b 75 70 25 7e 22 20 6d 65 73 73 61 67 65 20 22 43 61 6e 6e 6f 74 20 77 72 69 74 65 20 62 61 ckup%~".message."Cannot.write.ba
3f80 63 6b 75 70 20 66 69 6c 65 3b 20 62 61 63 6b 69 6e 67 20 75 70 20 69 6e 20 7e 2f 25 25 62 61 63 ckup.file;.backing.up.in.~/%%bac
3fa0 6b 75 70 25 25 7e 22 20 73 6c 65 65 70 2d 66 6f 72 20 31 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f kup%%~".sleep-for.1.nil.(byte-co
3fc0 64 65 20 22 c1 08 21 87 22 20 5b 62 61 63 6b 75 70 6e 61 6d 65 20 64 65 6c 65 74 65 2d 66 69 6c de."..!.".[backupname.delete-fil
3fe0 65 5d 20 32 29 20 28 28 66 69 6c 65 2d 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 e].2).((file-error.(byte-code.".
4000 87 22 20 5b 6e 69 6c 5d 20 31 29 29 29 20 63 6f 70 79 2d 66 69 6c 65 5d 20 38 29 29 29 20 79 2d .".[nil].1))).copy-file].8))).y-
4020 6f 72 2d 6e 2d 70 20 66 6f 72 6d 61 74 20 22 44 65 6c 65 74 65 20 65 78 63 65 73 73 20 62 61 63 or-n-p.format."Delete.excess.bac
4040 6b 75 70 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 25 73 3f 20 22 20 28 62 79 74 65 2d 63 6f 64 65 kup.versions.of.%s?.".(byte-code
4060 20 22 c1 08 40 21 87 22 20 5b 74 61 72 67 65 74 73 20 64 65 6c 65 74 65 2d 66 69 6c 65 5d 20 32 ."..@!.".[targets.delete-file].2
4080 29 20 28 28 66 69 6c 65 2d 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 87 22 20 5b ).((file-error.(byte-code."..".[
40a0 6e 69 6c 5d 20 31 29 29 29 5d 20 37 29 20 28 28 66 69 6c 65 2d 65 72 72 6f 72 20 28 62 79 74 65 nil].1)))].7).((file-error.(byte
40c0 2d 63 6f 64 65 20 22 c0 87 22 20 5b 6e 69 6c 5d 20 31 29 29 29 5d 20 38 29 29 0a 0a 28 64 65 66 -code."..".[nil].1)))].8))..(def
40e0 75 6e 20 66 69 6c 65 2d 6e 61 6d 65 2d 73 61 6e 73 2d 76 65 72 73 69 6f 6e 73 20 28 6e 61 6d 65 un.file-name-sans-versions.(name
4100 29 20 22 5c 0a 52 65 74 75 72 6e 20 46 49 4c 45 4e 41 4d 45 20 73 61 6e 73 20 62 61 63 6b 75 70 )."\.Return.FILENAME.sans.backup
4120 20 76 65 72 73 69 6f 6e 73 20 6f 72 20 73 74 72 69 6e 67 73 2e 0a 54 68 69 73 20 69 73 20 61 20 .versions.or.strings..This.is.a.
4140 73 65 70 61 72 61 74 65 20 70 72 6f 63 65 64 75 72 65 20 73 6f 20 79 6f 75 72 20 73 69 74 65 2d separate.procedure.so.your.site-
4160 69 6e 69 74 20 6f 72 20 73 74 61 72 74 75 70 20 66 69 6c 65 20 63 61 6e 0a 72 65 64 65 66 69 6e init.or.startup.file.can.redefin
4180 65 20 69 74 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 c2 09 c3 3d 83 24 00 c4 c5 08 5c 22 e.it.".(byte-code."....=.$....\"
41a0 86 21 00 c4 c6 08 c4 c7 08 5c 22 23 85 21 00 c4 c8 08 c9 c2 21 23 82 28 00 c4 ca 08 5c 22 4f 87 .!.......\"#.!......!#.(....\"O.
41c0 22 20 5b 6e 61 6d 65 20 73 79 73 74 65 6d 2d 74 79 70 65 20 30 20 76 61 78 2d 76 6d 73 20 73 74 ".[name.system-type.0.vax-vms.st
41e0 72 69 6e 67 2d 6d 61 74 63 68 20 22 3b 5b 30 2d 39 5d 2a 5c 5c 27 22 20 22 5c 5c 2e 22 20 22 5b ring-match.";[0-9]*\\'"."\\."."[
4200 5d 3e 5d 22 20 22 5c 5c 2e 5b 30 2d 39 5d 2a 5c 5c 27 22 20 6d 61 74 63 68 2d 65 6e 64 20 22 5c ]>]"."\\.[0-9]*\\'".match-end."\
4220 5c 28 5c 5c 2e 7e 5b 30 2d 39 5d 2b 5c 5c 29 3f 7e 5c 5c 27 22 5d 20 31 30 29 29 0a 0a 28 64 65 \(\\.~[0-9]+\\)?~\\'"].10))..(de
4240 66 75 6e 20 6d 61 6b 65 2d 62 61 63 6b 75 70 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 66 69 6c 65 29 fun.make-backup-file-name.(file)
4260 20 22 5c 0a 43 72 65 61 74 65 20 74 68 65 20 6e 6f 6e 2d 6e 75 6d 65 72 69 63 20 62 61 63 6b 75 ."\.Create.the.non-numeric.backu
4280 70 20 66 69 6c 65 20 6e 61 6d 65 20 66 6f 72 20 46 49 4c 45 2e 0a 54 68 69 73 20 69 73 20 61 20 p.file.name.for.FILE..This.is.a.
42a0 73 65 70 61 72 61 74 65 20 66 75 6e 63 74 69 6f 6e 20 73 6f 20 79 6f 75 20 63 61 6e 20 72 65 64 separate.function.so.you.can.red
42c0 65 66 69 6e 65 20 69 74 20 66 6f 72 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 2e 22 20 28 62 79 efine.it.for.customization.".(by
42e0 74 65 2d 63 6f 64 65 20 22 08 c1 50 87 22 20 5b 66 69 6c 65 20 22 7e 22 5d 20 32 29 29 0a 0a 28 te-code."..P.".[file."~"].2))..(
4300 64 65 66 75 6e 20 62 61 63 6b 75 70 2d 66 69 6c 65 2d 6e 61 6d 65 2d 70 20 28 66 69 6c 65 29 20 defun.backup-file-name-p.(file).
4320 22 5c 0a 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 46 49 4c 45 20 69 73 20 61 20 62 "\.Return.non-nil.if.FILE.is.a.b
4340 61 63 6b 75 70 20 66 69 6c 65 20 6e 61 6d 65 20 28 6e 75 6d 65 72 69 63 20 6f 72 20 6e 6f 74 29 ackup.file.name.(numeric.or.not)
4360 2e 0a 54 68 69 73 20 69 73 20 61 20 73 65 70 61 72 61 74 65 20 66 75 6e 63 74 69 6f 6e 20 73 6f ..This.is.a.separate.function.so
4380 20 79 6f 75 20 63 61 6e 20 72 65 64 65 66 69 6e 65 20 69 74 20 66 6f 72 20 63 75 73 74 6f 6d 69 .you.can.redefine.it.for.customi
43a0 7a 61 74 69 6f 6e 2e 0a 59 6f 75 20 6d 61 79 20 6e 65 65 64 20 74 6f 20 72 65 64 65 66 69 6e 65 zation..You.may.need.to.redefine
43c0 20 66 69 6c 65 2d 6e 61 6d 65 2d 73 61 6e 73 2d 76 65 72 73 69 6f 6e 73 20 61 73 20 77 65 6c 6c .file-name-sans-versions.as.well
43e0 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 5c 22 87 22 20 5b 66 69 6c 65 20 73 74 72 .".(byte-code."...\".".[file.str
4400 69 6e 67 2d 6d 61 74 63 68 20 22 7e 24 22 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 ing-match."~$"].3))..(defun.find
4420 2d 62 61 63 6b 75 70 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 66 6e 29 20 22 5c 0a 46 69 6e 64 20 61 -backup-file-name.(fn)."\.Find.a
4440 20 66 69 6c 65 20 6e 61 6d 65 20 66 6f 72 20 61 20 62 61 63 6b 75 70 20 66 69 6c 65 2c 20 61 6e .file.name.for.a.backup.file,.an
4460 64 20 73 75 67 67 65 73 74 69 6f 6e 73 20 66 6f 72 20 64 65 6c 65 74 69 6f 6e 73 2e 0a 56 61 6c d.suggestions.for.deletions..Val
4480 75 65 20 69 73 20 61 20 6c 69 73 74 20 77 68 6f 73 65 20 63 61 72 20 69 73 20 74 68 65 20 6e 61 ue.is.a.list.whose.car.is.the.na
44a0 6d 65 20 66 6f 72 20 74 68 65 20 62 61 63 6b 75 70 20 66 69 6c 65 0a 20 61 6e 64 20 77 68 6f 73 me.for.the.backup.file..and.whos
44c0 65 20 63 64 72 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6f 6c 64 20 76 65 72 73 69 6f 6e 73 20 e.cdr.is.a.list.of.old.versions.
44e0 74 6f 20 63 6f 6e 73 69 64 65 72 20 64 65 6c 65 74 69 6e 67 20 6e 6f 77 2e 22 20 28 62 79 74 65 to.consider.deleting.now.".(byte
4500 2d 63 6f 64 65 20 22 08 cd 3d 83 0d 00 ce 09 21 43 82 86 00 cf 09 21 d0 50 1a 0a 47 1b d1 0a d2 -code."..=.....!C.....!.P..G....
4520 09 21 5c 22 1c d3 d4 d5 0c 5c 22 d6 5c 22 1d d7 d8 d9 0d 42 5c 22 1e 06 08 86 35 00 0e 06 d9 56 .!\".....\".\".....B\"....5....V
4540 1e 07 da 0d 47 0e 09 0e 0a db 24 1e 08 0e 07 3f 83 4f 00 ce 09 21 43 82 84 00 09 d0 dc 0e 06 54 ....G.....$....?.O...!C........T
4560 21 dd 52 0e 08 d9 56 85 68 00 de 0e 0a 0e 09 db 23 d9 59 85 83 00 d4 df e0 0e 09 0d 5c 22 1e 0b !.R...V.h.......#.Y.........\"..
4580 e1 e0 0e 08 53 0e 0b 5c 22 cc 5c 22 88 0e 0b 29 5c 22 42 2e 07 87 22 20 5b 76 65 72 73 69 6f 6e ....S..\".\"...)\"B...".[version
45a0 2d 63 6f 6e 74 72 6f 6c 20 66 6e 20 62 61 73 65 2d 76 65 72 73 69 6f 6e 73 20 62 76 2d 6c 65 6e -control.fn.base-versions.bv-len
45c0 67 74 68 20 70 6f 73 73 69 62 69 6c 69 74 69 65 73 20 76 65 72 73 69 6f 6e 73 20 68 69 67 68 2d gth.possibilities.versions.high-
45e0 77 61 74 65 72 2d 6d 61 72 6b 20 64 65 73 65 72 76 65 2d 76 65 72 73 69 6f 6e 73 2d 70 20 6e 75 water-mark.deserve-versions-p.nu
4600 6d 62 65 72 2d 74 6f 2d 64 65 6c 65 74 65 20 6b 65 70 74 2d 6f 6c 64 2d 76 65 72 73 69 6f 6e 73 mber-to-delete.kept-old-versions
4620 20 6b 65 70 74 2d 6e 65 77 2d 76 65 72 73 69 6f 6e 73 20 76 20 6e 69 6c 20 6e 65 76 65 72 20 6d .kept-new-versions.v.nil.never.m
4640 61 6b 65 2d 62 61 63 6b 75 70 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 2d 6e 61 6d 65 2d 6e ake-backup-file-name.file-name-n
4660 6f 6e 64 69 72 65 63 74 6f 72 79 20 22 2e 7e 22 20 66 69 6c 65 2d 6e 61 6d 65 2d 61 6c 6c 2d 63 ondirectory.".~".file-name-all-c
4680 6f 6d 70 6c 65 74 69 6f 6e 73 20 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 73 ompletions.file-name-directory.s
46a0 6f 72 74 20 6d 61 70 63 61 72 20 62 61 63 6b 75 70 2d 65 78 74 72 61 63 74 2d 76 65 72 73 69 6f ort.mapcar.backup-extract-versio
46c0 6e 20 3c 20 61 70 70 6c 79 20 6d 61 78 20 30 20 2d 20 2d 31 20 69 6e 74 2d 74 6f 2d 73 74 72 69 n.<.apply.max.0.-.-1.int-to-stri
46e0 6e 67 20 22 7e 22 20 2b 20 28 6c 61 6d 62 64 61 20 28 6e 29 20 28 62 79 74 65 2d 63 6f 64 65 20 ng."~".+.(lambda.(n).(byte-code.
4700 22 08 c2 c3 09 21 c4 52 87 22 20 5b 66 6e 20 6e 20 22 2e 7e 22 20 69 6e 74 2d 74 6f 2d 73 74 72 "....!.R.".[fn.n.".~".int-to-str
4720 69 6e 67 20 22 7e 22 5d 20 35 29 29 20 6e 74 68 63 64 72 20 72 70 6c 61 63 64 5d 20 31 39 29 29 ing."~"].5)).nthcdr.rplacd].19))
4740 0a 0a 28 64 65 66 75 6e 20 62 61 63 6b 75 70 2d 65 78 74 72 61 63 74 2d 76 65 72 73 69 6f 6e 20 ..(defun.backup-extract-version.
4760 28 66 6e 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 08 09 23 85 0d 00 c4 c5 21 09 55 83 19 (fn).(byte-code."....#.....!.U..
4780 00 c6 08 09 c7 4f 21 82 1a 00 c5 87 22 20 5b 66 6e 20 62 76 2d 6c 65 6e 67 74 68 20 73 74 72 69 .....O!.....".[fn.bv-length.stri
47a0 6e 67 2d 6d 61 74 63 68 20 22 5b 30 2d 39 5d 2b 7e 24 22 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e ng-match."[0-9]+~$".match-beginn
47c0 69 6e 67 20 30 20 73 74 72 69 6e 67 2d 74 6f 2d 69 6e 74 20 2d 31 5d 20 36 29 29 0a 0a 28 64 65 ing.0.string-to-int.-1].6))..(de
47e0 66 75 6e 20 66 69 6c 65 2d 6e 6c 69 6e 6b 73 20 28 66 69 6c 65 6e 61 6d 65 29 20 22 5c 0a 52 65 fun.file-nlinks.(filename)."\.Re
4800 74 75 72 6e 20 6e 75 6d 62 65 72 20 6f 66 20 6e 61 6d 65 73 20 66 69 6c 65 20 46 49 4c 45 4e 41 turn.number.of.names.file.FILENA
4820 4d 45 20 68 61 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 41 40 87 22 20 5b 66 69 ME.has.".(byte-code."..!A@.".[fi
4840 6c 65 6e 61 6d 65 20 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 73 5d 20 32 29 29 0a 0a 28 64 65 lename.file-attributes].2))..(de
4860 66 75 6e 20 73 61 76 65 2d 62 75 66 66 65 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 73 29 fun.save-buffer.(&optional.args)
4880 20 22 5c 0a 53 61 76 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 69 6e 20 76 69 73 69 74 ."\.Save.current.buffer.in.visit
48a0 65 64 20 66 69 6c 65 20 69 66 20 6d 6f 64 69 66 69 65 64 2e 20 20 56 65 72 73 69 6f 6e 73 20 64 ed.file.if.modified...Versions.d
48c0 65 73 63 72 69 62 65 64 20 62 65 6c 6f 77 2e 0a 0a 42 79 20 64 65 66 61 75 6c 74 2c 20 6d 61 6b escribed.below...By.default,.mak
48e0 65 73 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 76 65 72 73 69 6f 6e 20 69 6e 74 6f 20 61 20 62 es.the.previous.version.into.a.b
4900 61 63 6b 75 70 20 66 69 6c 65 0a 20 69 66 20 70 72 65 76 69 6f 75 73 6c 79 20 72 65 71 75 65 73 ackup.file..if.previously.reques
4920 74 65 64 20 6f 72 20 69 66 20 74 68 69 73 20 69 73 20 74 68 65 20 66 69 72 73 74 20 73 61 76 65 ted.or.if.this.is.the.first.save
4940 2e 0a 57 69 74 68 20 31 20 6f 72 20 33 20 5c 5c 5b 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d ..With.1.or.3.\\[universal-argum
4960 65 6e 74 5d 27 73 2c 20 6d 61 72 6b 73 20 74 68 69 73 20 76 65 72 73 69 6f 6e 0a 20 74 6f 20 62 ent]'s,.marks.this.version..to.b
4980 65 63 6f 6d 65 20 61 20 62 61 63 6b 75 70 20 77 68 65 6e 20 74 68 65 20 6e 65 78 74 20 73 61 76 ecome.a.backup.when.the.next.sav
49a0 65 20 69 73 20 64 6f 6e 65 2e 0a 57 69 74 68 20 32 20 6f 72 20 33 20 5c 5c 5b 75 6e 69 76 65 72 e.is.done..With.2.or.3.\\[univer
49c0 73 61 6c 2d 61 72 67 75 6d 65 6e 74 5d 27 73 2c 0a 20 75 6e 63 6f 6e 64 69 74 69 6f 6e 61 6c 6c sal-argument]'s,..unconditionall
49e0 79 20 6d 61 6b 65 73 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 76 65 72 73 69 6f 6e 20 69 6e 74 y.makes.the.previous.version.int
4a00 6f 20 61 20 62 61 63 6b 75 70 20 66 69 6c 65 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 20 6f o.a.backup.file..With.argument.o
4a20 66 20 30 2c 20 6e 65 76 65 72 20 6d 61 6b 65 73 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 76 65 f.0,.never.makes.the.previous.ve
4a40 72 73 69 6f 6e 20 69 6e 74 6f 20 61 20 62 61 63 6b 75 70 20 66 69 6c 65 2e 0a 0a 49 66 20 61 20 rsion.into.a.backup.file...If.a.
4a60 66 69 6c 65 27 73 20 6e 61 6d 65 20 69 73 20 46 4f 4f 2c 20 74 68 65 20 6e 61 6d 65 73 20 6f 66 file's.name.is.FOO,.the.names.of
4a80 20 69 74 73 20 6e 75 6d 62 65 72 65 64 20 62 61 63 6b 75 70 20 76 65 72 73 69 6f 6e 73 20 61 72 .its.numbered.backup.versions.ar
4aa0 65 0a 20 46 4f 4f 2e 7e 69 7e 20 66 6f 72 20 76 61 72 69 6f 75 73 20 69 6e 74 65 67 65 72 73 20 e..FOO.~i~.for.various.integers.
4ac0 69 2e 20 20 41 20 6e 6f 6e 2d 6e 75 6d 62 65 72 65 64 20 62 61 63 6b 75 70 20 66 69 6c 65 20 69 i...A.non-numbered.backup.file.i
4ae0 73 20 63 61 6c 6c 65 64 20 46 4f 4f 7e 2e 0a 4e 75 6d 65 72 69 63 20 62 61 63 6b 75 70 73 20 28 s.called.FOO~..Numeric.backups.(
4b00 72 61 74 68 65 72 20 74 68 61 6e 20 46 4f 4f 7e 29 20 77 69 6c 6c 20 62 65 20 6d 61 64 65 20 69 rather.than.FOO~).will.be.made.i
4b20 66 20 76 61 6c 75 65 20 6f 66 0a 20 60 76 65 72 73 69 6f 6e 2d 63 6f 6e 74 72 6f 6c 27 20 69 73 f.value.of..`version-control'.is
4b40 20 6e 6f 74 20 74 68 65 20 61 74 6f 6d 20 60 6e 65 76 65 72 27 20 61 6e 64 20 65 69 74 68 65 72 .not.the.atom.`never'.and.either
4b60 20 74 68 65 72 65 20 61 72 65 20 61 6c 72 65 61 64 79 0a 20 6e 75 6d 65 72 69 63 20 76 65 72 73 .there.are.already..numeric.vers
4b80 69 6f 6e 73 20 6f 66 20 74 68 65 20 66 69 6c 65 20 62 65 69 6e 67 20 62 61 63 6b 65 64 20 75 70 ions.of.the.file.being.backed.up
4ba0 2c 20 6f 72 20 60 76 65 72 73 69 6f 6e 2d 63 6f 6e 74 72 6f 6c 27 20 69 73 0a 20 6e 6f 6e 2d 6e ,.or.`version-control'.is..non-n
4bc0 69 6c 2e 0a 57 65 20 64 6f 6e 27 74 20 77 61 6e 74 20 65 78 63 65 73 73 69 76 65 20 76 65 72 73 il..We.don't.want.excessive.vers
4be0 69 6f 6e 73 20 70 69 6c 69 6e 67 20 75 70 2c 20 73 6f 20 74 68 65 72 65 20 61 72 65 20 76 61 72 ions.piling.up,.so.there.are.var
4c00 69 61 62 6c 65 73 0a 20 60 6b 65 70 74 2d 6f 6c 64 2d 76 65 72 73 69 6f 6e 73 27 2c 20 77 68 69 iables..`kept-old-versions',.whi
4c20 63 68 20 74 65 6c 6c 73 20 45 6d 61 63 73 20 68 6f 77 20 6d 61 6e 79 20 6f 6c 64 65 73 74 20 76 ch.tells.Emacs.how.many.oldest.v
4c40 65 72 73 69 6f 6e 73 20 74 6f 20 6b 65 65 70 2c 0a 20 61 6e 64 20 60 6b 65 70 74 2d 6e 65 77 2d ersions.to.keep,..and.`kept-new-
4c60 76 65 72 73 69 6f 6e 73 27 2c 20 77 68 69 63 68 20 74 65 6c 6c 73 20 68 6f 77 20 6d 61 6e 79 20 versions',.which.tells.how.many.
4c80 6e 65 77 65 73 74 20 76 65 72 73 69 6f 6e 73 20 74 6f 20 6b 65 65 70 2e 0a 20 44 65 66 61 75 6c newest.versions.to.keep...Defaul
4ca0 74 73 20 61 72 65 20 32 20 6f 6c 64 20 76 65 72 73 69 6f 6e 73 20 61 6e 64 20 32 20 6e 65 77 2e ts.are.2.old.versions.and.2.new.
4cc0 0a 60 64 69 72 65 64 2d 6b 65 70 74 2d 76 65 72 73 69 6f 6e 73 27 20 63 6f 6e 74 72 6f 6c 73 20 .`dired-kept-versions'.controls.
4ce0 64 69 72 65 64 27 73 20 63 6c 65 61 6e 2d 64 69 72 65 63 74 6f 72 79 20 28 2e 29 20 63 6f 6d 6d dired's.clean-directory.(.).comm
4d00 61 6e 64 2e 0a 49 66 20 60 74 72 69 6d 2d 76 65 72 73 69 6f 6e 73 2d 77 69 74 68 6f 75 74 2d 61 and..If.`trim-versions-without-a
4d20 73 6b 69 6e 67 27 20 69 73 20 6e 69 6c 2c 20 73 79 73 74 65 6d 20 77 69 6c 6c 20 71 75 65 72 79 sking'.is.nil,.system.will.query
4d40 20 75 73 65 72 0a 20 62 65 66 6f 72 65 20 74 72 69 6d 6d 69 6e 67 20 76 65 72 73 69 6f 6e 73 2e .user..before.trimming.versions.
4d60 20 20 4f 74 68 65 72 77 69 73 65 20 69 74 20 64 6f 65 73 20 69 74 20 73 69 6c 65 6e 74 6c 79 2e ..Otherwise.it.does.it.silently.
4d80 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ".(interactive."p").(byte-code."
4da0 c5 88 c6 20 c7 20 c8 56 0a 85 10 00 0b c9 3d 3f 1a 19 18 08 85 20 00 0b ca 3e 85 20 00 c5 89 14 .......V......=?.........>......
4dc0 88 08 85 26 00 09 85 2e 00 cb cc cd 20 5c 22 88 ce 20 88 08 85 3f 00 0b cf 3e 85 3f 00 c5 89 14 ...&.........\"......?...>.?....
4de0 2b 87 22 20 5b 6d 6f 64 70 20 6c 61 72 67 65 20 6d 61 6b 65 2d 62 61 63 6b 75 70 2d 66 69 6c 65 +.".[modp.large.make-backup-file
4e00 73 20 61 72 67 73 20 62 75 66 66 65 72 2d 62 61 63 6b 65 64 2d 75 70 20 6e 69 6c 20 62 75 66 66 s.args.buffer-backed-up.nil.buff
4e20 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 62 75 66 66 65 72 2d 73 69 7a 65 20 35 30 30 30 30 20 er-modified-p.buffer-size.50000.
4e40 30 20 28 31 36 20 36 34 29 20 6d 65 73 73 61 67 65 20 22 53 61 76 69 6e 67 20 66 69 6c 65 20 25 0.(16.64).message."Saving.file.%
4e60 73 2e 2e 2e 22 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 62 61 73 69 63 2d 73 61 76 s...".buffer-file-name.basic-sav
4e80 65 2d 62 75 66 66 65 72 20 28 34 20 36 34 29 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 64 65 6c e-buffer.(4.64)].7))..(defun.del
4ea0 65 74 65 2d 61 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 2d 69 66 2d 6e 65 63 65 73 73 61 72 79 20 ete-auto-save-file-if-necessary.
4ec0 6e 69 6c 20 22 5c 0a 44 65 6c 65 74 65 20 74 68 65 20 61 75 74 6f 2d 73 61 76 65 20 66 69 6c 65 nil."\.Delete.the.auto-save.file
4ee0 6e 61 6d 65 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 28 69 66 20 name.for.the.current.buffer.(if.
4f00 69 74 20 68 61 73 20 6f 6e 65 29 0a 69 66 20 76 61 72 69 61 62 6c 65 20 20 64 65 6c 65 74 65 2d it.has.one).if.variable..delete-
4f20 61 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 73 20 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 22 20 28 62 auto-save-files..is.non-nil.".(b
4f40 79 74 65 2d 63 6f 64 65 20 22 08 85 17 00 09 85 17 00 c3 0a 08 5c 22 3f 85 17 00 c4 c5 c6 8f 88 yte-code."...........\"?........
4f60 c7 20 87 22 20 5b 62 75 66 66 65 72 2d 61 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 2d 6e 61 6d 65 ...".[buffer-auto-save-file-name
4f80 20 64 65 6c 65 74 65 2d 61 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 73 20 62 75 66 66 65 72 2d 66 .delete-auto-save-files.buffer-f
4fa0 69 6c 65 2d 6e 61 6d 65 20 73 74 72 69 6e 67 3d 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 ile-name.string=.nil.(byte-code.
4fc0 22 c1 08 21 87 22 20 5b 62 75 66 66 65 72 2d 61 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 2d 6e 61 "..!.".[buffer-auto-save-file-na
4fe0 6d 65 20 64 65 6c 65 74 65 2d 66 69 6c 65 5d 20 32 29 20 28 28 66 69 6c 65 2d 65 72 72 6f 72 20 me.delete-file].2).((file-error.
5000 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 87 22 20 5b 6e 69 6c 5d 20 31 29 29 29 20 73 65 74 2d 62 (byte-code."..".[nil].1))).set-b
5020 75 66 66 65 72 2d 61 75 74 6f 2d 73 61 76 65 64 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 62 61 uffer-auto-saved].4))..(defun.ba
5040 73 69 63 2d 73 61 76 65 2d 62 75 66 66 65 72 20 6e 69 6c 20 22 5c 0a 53 61 76 65 20 74 68 65 20 sic-save-buffer.nil."\.Save.the.
5060 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 69 6e 20 69 74 73 20 76 69 73 69 74 65 64 20 66 69 current.buffer.in.its.visited.fi
5080 6c 65 2c 20 69 66 20 69 74 20 68 61 73 20 62 65 65 6e 20 6d 6f 64 69 66 69 65 64 2e 22 20 28 69 le,.if.it.has.been.modified.".(i
50a0 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 d1 20 83 27 01 c3 nteractive).(byte-code.".....'..
50c0 c3 19 18 0a 86 1f 00 d2 d3 d4 21 c3 5c 22 12 d5 0a 21 89 14 88 d6 0d 21 88 d7 0a 21 3f 85 3b 00 ..........!.\"...!.....!...!?.;.
50e0 d8 d9 da db 0a 21 5c 22 21 83 38 00 c6 89 11 82 3b 00 dc dd 21 88 de 70 21 86 52 00 df 0a 21 3f .....!\"!.8.....;...!..p!.R...!?
5100 86 52 00 d8 e0 21 86 52 00 dc e1 21 88 0e 07 86 5c 5c 00 e2 20 89 10 88 8c e3 20 88 64 e4 56 85 .R...!.R...!....\\..........d.V.
5120 8d 00 e5 64 53 66 e6 5c 22 85 8d 00 0e 08 c6 3d 86 83 00 0e 08 85 83 00 d8 d9 e7 e8 20 5c 22 21 ...dSf.\"......=.............\"!
5140 85 8d 00 8a 64 62 88 e6 63 29 88 0e 0a c3 1e 0b 1e 09 0e 09 85 a3 00 e9 0e 09 40 21 89 16 0b 3f ....db..c)................@!...?
5160 85 b0 00 0e 09 41 89 16 09 88 82 95 00 88 0e 0b 83 bc 00 c3 89 10 82 15 01 0e 0b 3f 85 15 01 0e .....A.....................?....
5180 0c 83 ed 00 c6 c3 0a ea 50 1e 0f 1e 0e 1e 0d c3 eb ec 8f 88 ed 8e ee 20 88 ef 65 64 0a c3 c6 25 ........P.................ed...%
51a0 88 c3 89 16 0d 29 2b 82 15 01 0e 10 f0 3d 85 f9 00 c3 10 c3 89 11 88 09 85 00 01 08 3f 85 0d 01 .....)+......=..............?...
51c0 f1 0a 21 89 10 88 f2 0a f3 5c 22 88 ef 65 64 0a c3 c6 25 2a 88 08 85 1f 01 c3 f4 f5 8f 29 88 f6 ..!......\"..ed...%*.........)..
51e0 20 2a 82 2a 01 f7 f8 21 87 22 20 5b 73 65 74 6d 6f 64 65 73 20 74 65 6d 70 73 65 74 6d 6f 64 65 .*.*...!.".[setmodes.tempsetmode
5200 73 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e 69 6c 20 64 65 66 61 75 6c 74 2d 64 s.buffer-file-name.nil.default-d
5220 69 72 65 63 74 6f 72 79 20 61 75 74 6f 2d 73 61 76 65 2d 64 65 66 61 75 6c 74 20 74 20 62 75 66 irectory.auto-save-default.t.buf
5240 66 65 72 2d 62 61 63 6b 65 64 2d 75 70 20 72 65 71 75 69 72 65 2d 66 69 6e 61 6c 2d 6e 65 77 6c fer-backed-up.require-final-newl
5260 69 6e 65 20 68 6f 6f 6b 73 20 77 72 69 74 65 2d 66 69 6c 65 2d 68 6f 6f 6b 73 20 64 6f 6e 65 20 ine.hooks.write-file-hooks.done.
5280 66 69 6c 65 2d 70 72 65 63 69 6f 75 73 2d 66 6c 61 67 20 72 65 6e 61 6d 65 20 6e 6f 64 65 6c 65 file-precious-flag.rename.nodele
52a0 74 65 20 66 69 6c 65 20 73 79 73 74 65 6d 2d 74 79 70 65 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 te.file.system-type.buffer-modif
52c0 69 65 64 2d 70 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 72 65 61 64 2d 66 69 6c 65 ied-p.expand-file-name.read-file
52e0 2d 6e 61 6d 65 20 22 46 69 6c 65 20 74 6f 20 73 61 76 65 20 69 6e 3a 20 22 20 66 69 6c 65 2d 6e -name."File.to.save.in:.".file-n
5300 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 61 75 74 6f 2d 73 61 76 65 2d 6d 6f 64 65 20 66 69 6c ame-directory.auto-save-mode.fil
5320 65 2d 77 72 69 74 61 62 6c 65 2d 70 20 79 65 73 2d 6f 72 2d 6e 6f 2d 70 20 66 6f 72 6d 61 74 20 e-writable-p.yes-or-no-p.format.
5340 22 46 69 6c 65 20 25 73 20 69 73 20 77 72 69 74 65 2d 70 72 6f 74 65 63 74 65 64 3b 20 74 72 79 "File.%s.is.write-protected;.try
5360 20 74 6f 20 73 61 76 65 20 61 6e 79 77 61 79 3f 20 22 20 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e .to.save.anyway?.".file-name-non
5380 64 69 72 65 63 74 6f 72 79 20 65 72 72 6f 72 20 22 41 74 74 65 6d 70 74 20 74 6f 20 73 61 76 65 directory.error."Attempt.to.save
53a0 20 74 6f 20 61 20 66 69 6c 65 20 77 68 69 63 68 20 79 6f 75 20 61 72 65 6e 27 74 20 61 6c 6c 6f .to.a.file.which.you.aren't.allo
53c0 77 65 64 20 74 6f 20 77 72 69 74 65 22 20 76 65 72 69 66 79 2d 76 69 73 69 74 65 64 2d 66 69 6c wed.to.write".verify-visited-fil
53e0 65 2d 6d 6f 64 74 69 6d 65 20 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 22 44 69 73 6b 20 66 69 e-modtime.file-exists-p."Disk.fi
5400 6c 65 20 68 61 73 20 63 68 61 6e 67 65 64 20 73 69 6e 63 65 20 76 69 73 69 74 65 64 20 6f 72 20 le.has.changed.since.visited.or.
5420 73 61 76 65 64 2e 20 20 53 61 76 65 20 61 6e 79 77 61 79 3f 20 22 20 22 53 61 76 65 20 6e 6f 74 saved...Save.anyway?."."Save.not
5440 20 63 6f 6e 66 69 72 6d 65 64 22 20 62 61 63 6b 75 70 2d 62 75 66 66 65 72 20 77 69 64 65 6e 20 .confirmed".backup-buffer.widen.
5460 31 20 2f 3d 20 31 30 20 22 42 75 66 66 65 72 20 25 73 20 64 6f 65 73 20 6e 6f 74 20 65 6e 64 20 1./=.10."Buffer.%s.does.not.end.
5480 69 6e 20 6e 65 77 6c 69 6e 65 2e 20 20 41 64 64 20 6f 6e 65 3f 20 22 20 62 75 66 66 65 72 2d 6e in.newline...Add.one?.".buffer-n
54a0 61 6d 65 20 66 75 6e 63 61 6c 6c 20 22 23 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 08 09 c2 ame.funcall."#".(byte-code."....
54c0 23 88 c5 09 21 89 13 87 22 20 5b 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 #...!...".[buffer-file-name.file
54e0 20 74 20 73 65 74 6d 6f 64 65 73 20 72 65 6e 61 6d 65 2d 66 69 6c 65 20 66 69 6c 65 2d 6d 6f 64 .t.setmodes.rename-file.file-mod
5500 65 73 5d 20 34 29 20 28 28 66 69 6c 65 2d 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 es].4).((file-error.(byte-code."
5520 c1 10 c3 89 12 87 22 20 5b 72 65 6e 61 6d 65 20 6e 69 6c 20 6e 6f 64 65 6c 65 74 65 20 74 5d 20 ......".[rename.nil.nodelete.t].
5540 32 29 29 29 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 08 83 0f 00 c5 09 0a c3 23 88 c6 20 82 17 2))).((byte-code."........#.....
5560 00 0c 86 17 00 c7 c8 c9 8f 87 22 20 5b 72 65 6e 61 6d 65 20 66 69 6c 65 20 62 75 66 66 65 72 2d ..........".[rename.file.buffer-
5580 66 69 6c 65 2d 6e 61 6d 65 20 74 20 6e 6f 64 65 6c 65 74 65 20 72 65 6e 61 6d 65 2d 66 69 6c 65 file-name.t.nodelete.rename-file
55a0 20 63 6c 65 61 72 2d 76 69 73 69 74 65 64 2d 66 69 6c 65 2d 6d 6f 64 74 69 6d 65 20 6e 69 6c 20 .clear-visited-file-modtime.nil.
55c0 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 66 69 6c 65 20 64 65 6c 65 74 65 2d 66 (byte-code."..!.".[file.delete-f
55e0 69 6c 65 5d 20 32 29 20 28 28 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 87 22 20 ile].2).((error.(byte-code."..".
5600 5b 6e 69 6c 5d 20 31 29 29 29 5d 20 35 29 29 20 63 6c 65 61 72 2d 76 69 73 69 74 65 64 2d 66 69 [nil].1)))].5)).clear-visited-fi
5620 6c 65 2d 6d 6f 64 74 69 6d 65 20 77 72 69 74 65 2d 72 65 67 69 6f 6e 20 76 61 78 2d 76 6d 73 20 le-modtime.write-region.vax-vms.
5640 66 69 6c 65 2d 6d 6f 64 65 73 20 73 65 74 2d 66 69 6c 65 2d 6d 6f 64 65 73 20 35 31 31 20 28 62 file-modes.set-file-modes.511.(b
5660 79 74 65 2d 63 6f 64 65 20 22 c2 08 09 5c 22 87 22 20 5b 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e yte-code."...\".".[buffer-file-n
5680 61 6d 65 20 73 65 74 6d 6f 64 65 73 20 73 65 74 2d 66 69 6c 65 2d 6d 6f 64 65 73 5d 20 33 29 20 ame.setmodes.set-file-modes].3).
56a0 28 28 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 87 22 20 5b 6e 69 6c 5d 20 31 29 ((error.(byte-code."..".[nil].1)
56c0 29 29 20 64 65 6c 65 74 65 2d 61 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 2d 69 66 2d 6e 65 63 65 )).delete-auto-save-file-if-nece
56e0 73 73 61 72 79 20 6d 65 73 73 61 67 65 20 22 28 4e 6f 20 63 68 61 6e 67 65 73 20 6e 65 65 64 20 ssary.message."(No.changes.need.
5700 74 6f 20 62 65 20 73 61 76 65 64 29 22 5d 20 33 31 29 29 0a 0a 28 64 65 66 75 6e 20 73 61 76 65 to.be.saved)"].31))..(defun.save
5720 2d 73 6f 6d 65 2d 62 75 66 66 65 72 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 20 65 78 69 -some-buffers.(&optional.arg.exi
5740 74 69 6e 67 29 20 22 5c 0a 53 61 76 65 20 73 6f 6d 65 20 6d 6f 64 69 66 69 65 64 20 66 69 6c 65 ting)."\.Save.some.modified.file
5760 2d 76 69 73 69 74 69 6e 67 20 62 75 66 66 65 72 73 2e 20 20 41 73 6b 73 20 75 73 65 72 20 61 62 -visiting.buffers...Asks.user.ab
5780 6f 75 74 20 65 61 63 68 20 6f 6e 65 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 out.each.one..Optional.argument.
57a0 28 74 68 65 20 70 72 65 66 69 78 29 20 6e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 73 61 76 65 20 (the.prefix).non-nil.means.save.
57c0 61 6c 6c 20 77 69 74 68 20 6e 6f 20 71 75 65 73 74 69 6f 6e 73 2e 0a 4f 70 74 69 6f 6e 61 6c 20 all.with.no.questions..Optional.
57e0 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 45 58 49 54 49 4e 47 20 6d 65 61 6e 73 20 61 73 second.argument.EXITING.means.as
5800 6b 20 61 62 6f 75 74 20 63 65 72 74 61 69 6e 20 6e 6f 6e 2d 66 69 6c 65 20 62 75 66 66 65 72 73 k.about.certain.non-file.buffers
5820 0a 20 61 73 20 77 65 6c 6c 20 61 73 20 61 62 6f 75 74 20 66 69 6c 65 20 62 75 66 66 65 72 73 2e ..as.well.as.about.file.buffers.
5840 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ".(interactive."P").(byte-code."
5860 cb 88 cb cc 20 19 18 09 85 5a 00 09 40 1a cd 0a 21 85 50 00 8a 0a 71 88 0b 86 28 00 0c 85 28 00 .........Z..@...!.P...q...(...(.
5880 0d 85 28 00 ce 20 cf 56 85 4f 00 c6 89 10 85 4f 00 0e 07 86 48 00 d0 0b 83 42 00 d1 d2 0b 5c 22 ..(....V.O.....O....H....B....\"
58a0 82 47 00 d1 d3 d4 20 5c 22 21 85 4f 00 cb d5 d6 8f 29 29 88 09 41 89 11 88 82 07 00 88 0e 08 85 .G.....\"!.O.....))..A..........
58c0 80 00 0e 09 85 80 00 c6 89 10 88 0e 07 86 75 00 d0 d1 d7 0e 0a 5c 22 21 85 7b 00 d8 cb 21 88 cb ..............u......\"!.{...!..
58e0 89 16 09 88 08 83 8b 00 d9 da 21 82 8e 00 d9 db 21 2a 87 22 20 5b 63 6f 6e 73 69 64 65 72 65 64 ..........!.....!*.".[considered
5900 20 6c 69 73 74 20 62 75 66 66 65 72 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 65 78 .list.buffer.buffer-file-name.ex
5920 69 74 69 6e 67 20 62 75 66 66 65 72 2d 6f 66 66 65 72 2d 73 61 76 65 20 74 20 61 72 67 20 73 61 iting.buffer-offer-save.t.arg.sa
5940 76 65 2d 61 62 62 72 65 76 73 20 61 62 62 72 65 76 73 2d 63 68 61 6e 67 65 64 20 61 62 62 72 65 ve-abbrevs.abbrevs-changed.abbre
5960 76 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e 69 6c 20 62 75 66 66 65 72 2d 6c 69 73 74 20 62 75 66 66 v-file-name.nil.buffer-list.buff
5980 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 62 75 66 66 65 72 2d 73 69 7a 65 20 30 20 79 2d 6f 72 er-modified-p.buffer-size.0.y-or
59a0 2d 6e 2d 70 20 66 6f 72 6d 61 74 20 22 53 61 76 65 20 66 69 6c 65 20 25 73 3f 20 22 20 22 53 61 -n-p.format."Save.file.%s?."."Sa
59c0 76 65 20 62 75 66 66 65 72 20 25 73 3f 20 22 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 28 62 79 74 ve.buffer.%s?.".buffer-name.(byt
59e0 65 2d 63 6f 64 65 20 22 c0 20 87 22 20 5b 73 61 76 65 2d 62 75 66 66 65 72 5d 20 32 29 20 28 28 e-code."...".[save-buffer].2).((
5a00 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 87 22 20 5b 6e 69 6c 5d 20 31 29 29 29 error.(byte-code."..".[nil].1)))
5a20 20 22 53 61 76 65 20 61 62 62 72 65 76 73 20 69 6e 20 25 73 3f 20 22 20 77 72 69 74 65 2d 61 62 ."Save.abbrevs.in.%s?.".write-ab
5a40 62 72 65 76 2d 66 69 6c 65 20 6d 65 73 73 61 67 65 20 22 22 20 22 28 4e 6f 20 66 69 6c 65 73 20 brev-file.message.""."(No.files.
5a60 6e 65 65 64 20 73 61 76 69 6e 67 29 22 5d 20 31 33 29 29 0a 0a 28 64 65 66 75 6e 20 6e 6f 74 2d need.saving)"].13))..(defun.not-
5a80 6d 6f 64 69 66 69 65 64 20 6e 69 6c 20 22 5c 0a 4d 61 72 6b 20 63 75 72 72 65 6e 74 20 62 75 66 modified.nil."\.Mark.current.buf
5aa0 66 65 72 20 61 73 20 75 6e 6d 6f 64 69 66 69 65 64 2c 20 6e 6f 74 20 6e 65 65 64 69 6e 67 20 74 fer.as.unmodified,.not.needing.t
5ac0 6f 20 62 65 20 73 61 76 65 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 o.be.saved.".(interactive).(byte
5ae0 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 88 c3 c0 21 87 22 20 5b 6e 69 6c 20 6d 65 73 73 61 67 65 20 -code."....!...!.".[nil.message.
5b00 22 4d 6f 64 69 66 69 63 61 74 69 6f 6e 2d 66 6c 61 67 20 63 6c 65 61 72 65 64 22 20 73 65 74 2d "Modification-flag.cleared".set-
5b20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 74 buffer-modified-p].3))..(defun.t
5b40 6f 67 67 6c 65 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 20 22 5c 0a 43 68 61 6e 67 65 20 77 68 oggle-read-only.nil."\.Change.wh
5b60 65 74 68 65 72 20 74 68 69 73 20 62 75 66 66 65 72 20 69 73 20 76 69 73 69 74 69 6e 67 20 69 74 ether.this.buffer.is.visiting.it
5b80 73 20 66 69 6c 65 20 72 65 61 64 2d 6f 6e 6c 79 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 s.file.read-only.".(interactive)
5ba0 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 08 3f 89 10 88 c2 c3 20 21 87 22 20 5b 62 75 66 66 .(byte-code."...?......!.".[buff
5bc0 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 er-read-only.nil.set-buffer-modi
5be0 66 69 65 64 2d 70 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 5d 20 33 29 29 0a 0a 28 fied-p.buffer-modified-p].3))..(
5c00 64 65 66 75 6e 20 69 6e 73 65 72 74 2d 66 69 6c 65 20 28 66 69 6c 65 6e 61 6d 65 29 20 22 5c 0a defun.insert-file.(filename)."\.
5c20 49 6e 73 65 72 74 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 66 69 6c 65 20 46 49 4c 45 4e 41 4d 45 Insert.contents.of.file.FILENAME
5c40 20 69 6e 74 6f 20 62 75 66 66 65 72 20 61 66 74 65 72 20 70 6f 69 6e 74 2e 0a 53 65 74 20 6d 61 .into.buffer.after.point..Set.ma
5c60 72 6b 20 61 66 74 65 72 20 74 68 65 20 69 6e 73 65 72 74 65 64 20 74 65 78 74 2e 22 20 28 69 6e rk.after.the.inserted.text.".(in
5c80 74 65 72 61 63 74 69 76 65 20 22 66 49 6e 73 65 72 74 20 66 69 6c 65 3a 20 22 29 20 28 62 79 74 teractive."fInsert.file:.").(byt
5ca0 65 2d 63 6f 64 65 20 22 c2 88 c3 09 21 18 c4 60 08 41 40 5c 5c 21 29 87 22 20 5b 74 65 6d 20 66 e-code."....!..`.A@\\!).".[tem.f
5cc0 69 6c 65 6e 61 6d 65 20 6e 69 6c 20 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 ilename.nil.insert-file-contents
5ce0 20 70 75 73 68 2d 6d 61 72 6b 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 61 70 70 65 6e 64 2d 74 .push-mark].4))..(defun.append-t
5d00 6f 2d 66 69 6c 65 20 28 73 74 61 72 74 20 65 6e 64 20 66 69 6c 65 6e 61 6d 65 29 20 22 5c 0a 41 o-file.(start.end.filename)."\.A
5d20 70 70 65 6e 64 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20 72 65 67 69 6f 6e ppend.the.contents.of.the.region
5d40 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20 66 69 6c 65 20 46 49 4c 45 4e 41 4d 45 2e 0a 57 68 .to.the.end.of.file.FILENAME..Wh
5d60 65 6e 20 63 61 6c 6c 65 64 20 66 72 6f 6d 20 61 20 66 75 6e 63 74 69 6f 6e 2c 20 65 78 70 65 63 en.called.from.a.function,.expec
5d80 74 73 20 74 68 72 65 65 20 61 72 67 75 6d 65 6e 74 73 2c 0a 53 54 41 52 54 2c 20 45 4e 44 20 61 ts.three.arguments,.START,.END.a
5da0 6e 64 20 46 49 4c 45 4e 41 4d 45 2e 20 20 53 54 41 52 54 20 61 6e 64 20 45 4e 44 20 61 72 65 20 nd.FILENAME...START.and.END.are.
5dc0 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 73 0a 73 61 79 69 6e 67 20 77 68 61 74 20 74 65 78 buffer.positions.saying.what.tex
5de0 74 20 74 6f 20 77 72 69 74 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 0a 46 41 70 t.to.write.".(interactive."r.FAp
5e00 70 65 6e 64 20 74 6f 20 66 69 6c 65 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c5 pend.to.file:.").(byte-code."...
5e20 08 09 0a c3 24 87 22 20 5b 73 74 61 72 74 20 65 6e 64 20 66 69 6c 65 6e 61 6d 65 20 74 20 6e 69 ....$.".[start.end.filename.t.ni
5e40 6c 20 77 72 69 74 65 2d 72 65 67 69 6f 6e 5d 20 35 29 29 0a 0a 28 64 65 66 76 61 72 20 72 65 76 l.write-region].5))..(defvar.rev
5e60 65 72 74 2d 62 75 66 66 65 72 2d 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 20 22 5c 0a 46 75 6e 63 74 ert-buffer-function.nil."\.Funct
5e80 69 6f 6e 20 74 6f 20 75 73 65 20 74 6f 20 72 65 76 65 72 74 20 74 68 69 73 20 62 75 66 66 65 72 ion.to.use.to.revert.this.buffer
5ea0 2c 20 6f 72 20 6e 69 6c 20 74 6f 20 64 6f 20 74 68 65 20 64 65 66 61 75 6c 74 2e 22 29 0a 0a 28 ,.or.nil.to.do.the.default.")..(
5ec0 64 65 66 75 6e 20 72 65 76 65 72 74 2d 62 75 66 66 65 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 defun.revert-buffer.(&optional.a
5ee0 72 67 20 6e 6f 63 6f 6e 66 69 72 6d 29 20 22 5c 0a 52 65 70 6c 61 63 65 20 74 68 65 20 62 75 66 rg.noconfirm)."\.Replace.the.buf
5f00 66 65 72 20 74 65 78 74 20 77 69 74 68 20 74 68 65 20 74 65 78 74 20 6f 66 20 74 68 65 20 76 69 fer.text.with.the.text.of.the.vi
5f20 73 69 74 65 64 20 66 69 6c 65 20 6f 6e 20 64 69 73 6b 2e 0a 54 68 69 73 20 75 6e 64 6f 65 73 20 sited.file.on.disk..This.undoes.
5f40 61 6c 6c 20 63 68 61 6e 67 65 73 20 73 69 6e 63 65 20 74 68 65 20 66 69 6c 65 20 77 61 73 20 76 all.changes.since.the.file.was.v
5f60 69 73 69 74 65 64 20 6f 72 20 73 61 76 65 64 2e 0a 49 66 20 6c 61 74 65 73 74 20 61 75 74 6f 2d isited.or.saved..If.latest.auto-
5f80 73 61 76 65 20 66 69 6c 65 20 69 73 20 6d 6f 72 65 20 72 65 63 65 6e 74 20 74 68 61 6e 20 74 68 save.file.is.more.recent.than.th
5fa0 65 20 76 69 73 69 74 65 64 20 66 69 6c 65 2c 0a 61 73 6b 73 20 75 73 65 72 20 77 68 65 74 68 65 e.visited.file,.asks.user.whethe
5fc0 72 20 74 6f 20 75 73 65 20 74 68 61 74 20 69 6e 73 74 65 61 64 2e 0a 46 69 72 73 74 20 61 72 67 r.to.use.that.instead..First.arg
5fe0 75 6d 65 6e 74 20 28 6f 70 74 69 6f 6e 61 6c 29 20 6e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 64 ument.(optional).non-nil.means.d
6000 6f 6e 27 74 20 6f 66 66 65 72 20 74 6f 20 75 73 65 20 61 75 74 6f 2d 73 61 76 65 20 66 69 6c 65 on't.offer.to.use.auto-save.file
6020 2e 0a 20 54 68 69 73 20 69 73 20 74 68 65 20 70 72 65 66 69 78 20 61 72 67 20 77 68 65 6e 20 63 ...This.is.the.prefix.arg.when.c
6040 61 6c 6c 65 64 20 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2e 0a 0a 53 65 63 6f 6e 64 20 61 72 67 alled.interactively...Second.arg
6060 75 6d 65 6e 74 20 28 6f 70 74 69 6f 6e 61 6c 29 20 6e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 64 ument.(optional).non-nil.means.d
6080 6f 6e 27 74 20 61 73 6b 20 66 6f 72 20 63 6f 6e 66 69 72 6d 61 74 69 6f 6e 20 61 74 20 61 6c 6c on't.ask.for.confirmation.at.all
60a0 2e 0a 0a 49 66 20 72 65 76 65 72 74 2d 62 75 66 66 65 72 2d 66 75 6e 63 74 69 6f 6e 27 73 20 76 ...If.revert-buffer-function's.v
60c0 61 6c 75 65 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 69 74 20 69 73 20 63 61 6c 6c 65 64 20 74 6f alue.is.non-nil,.it.is.called.to
60e0 20 64 6f 20 74 68 65 20 77 6f 72 6b 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 .do.the.work.".(interactive."P")
6100 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c9 88 08 83 0e 00 cd 08 09 0a 23 82 a2 00 60 1b 09 3f 85 .(byte-code."..........#...`..?.
6120 27 00 ce 20 85 27 00 0d 85 27 00 cf 0d 21 85 27 00 d0 d1 21 1c 0c 83 30 00 0d 82 32 00 0e 07 1e '....'...'...!.'...!...0...2....
6140 06 0e 06 3f 83 40 00 d2 d3 21 82 a1 00 d4 0e 06 21 3f 83 50 00 d2 d5 0e 06 5c 22 82 a1 00 0a 86 ...?.@...!......!?.P.....\".....
6160 5b 00 d6 d7 d8 0e 06 5c 22 21 85 a1 00 0c 3f 85 6e 00 d9 70 21 3f 85 6e 00 c9 89 16 08 88 0e 0a [......\"!....?.n..p!?.n........
6180 cb 3d 86 7a 00 c9 89 16 0a 88 c9 cb 1e 0a 1e 0c c9 1e 07 0c 86 8a 00 da 20 88 db 20 29 88 dc 0e .=.z........................)...
61a0 06 0c 3f 5c 22 2a 88 0b 64 5e 62 88 dd c9 21 88 cb 2b 87 22 20 5b 72 65 76 65 72 74 2d 62 75 66 ..?\"*..d^b...!..+.".[revert-buf
61c0 66 65 72 2d 66 75 6e 63 74 69 6f 6e 20 61 72 67 20 6e 6f 63 6f 6e 66 69 72 6d 20 6f 70 6f 69 6e fer-function.arg.noconfirm.opoin
61e0 74 20 61 75 74 6f 2d 73 61 76 65 2d 70 20 62 75 66 66 65 72 2d 61 75 74 6f 2d 73 61 76 65 2d 66 t.auto-save-p.buffer-auto-save-f
6200 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 2d 6e 61 6d 65 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e ile-name.file-name.buffer-file-n
6220 61 6d 65 20 62 75 66 66 65 72 2d 62 61 63 6b 65 64 2d 75 70 20 6e 69 6c 20 62 75 66 66 65 72 2d ame.buffer-backed-up.nil.buffer-
6240 75 6e 64 6f 2d 6c 69 73 74 20 74 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 66 75 6e undo-list.t.buffer-read-only.fun
6260 63 61 6c 6c 20 72 65 63 65 6e 74 2d 61 75 74 6f 2d 73 61 76 65 2d 70 20 66 69 6c 65 2d 72 65 61 call.recent-auto-save-p.file-rea
6280 64 61 62 6c 65 2d 70 20 79 2d 6f 72 2d 6e 2d 70 20 22 42 75 66 66 65 72 20 68 61 73 20 62 65 65 dable-p.y-or-n-p."Buffer.has.bee
62a0 6e 20 61 75 74 6f 2d 73 61 76 65 64 20 72 65 63 65 6e 74 6c 79 2e 20 20 52 65 76 65 72 74 20 66 n.auto-saved.recently...Revert.f
62c0 72 6f 6d 20 61 75 74 6f 2d 73 61 76 65 20 66 69 6c 65 3f 20 22 20 65 72 72 6f 72 20 22 42 75 66 rom.auto-save.file?.".error."Buf
62e0 66 65 72 20 64 6f 65 73 20 6e 6f 74 20 73 65 65 6d 20 74 6f 20 62 65 20 61 73 73 6f 63 69 61 74 fer.does.not.seem.to.be.associat
6300 65 64 20 77 69 74 68 20 61 6e 79 20 66 69 6c 65 22 20 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 ed.with.any.file".file-exists-p.
6320 22 46 69 6c 65 20 25 73 20 6e 6f 20 6c 6f 6e 67 65 72 20 65 78 69 73 74 73 21 22 20 79 65 73 2d "File.%s.no.longer.exists!".yes-
6340 6f 72 2d 6e 6f 2d 70 20 66 6f 72 6d 61 74 20 22 52 65 76 65 72 74 20 62 75 66 66 65 72 20 66 72 or-no-p.format."Revert.buffer.fr
6360 6f 6d 20 66 69 6c 65 20 25 73 3f 20 22 20 76 65 72 69 66 79 2d 76 69 73 69 74 65 64 2d 66 69 6c om.file.%s?.".verify-visited-fil
6380 65 2d 6d 6f 64 74 69 6d 65 20 75 6e 6c 6f 63 6b 2d 62 75 66 66 65 72 20 65 72 61 73 65 2d 62 75 e-modtime.unlock-buffer.erase-bu
63a0 66 66 65 72 20 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 20 61 66 74 65 72 2d ffer.insert-file-contents.after-
63c0 66 69 6e 64 2d 66 69 6c 65 5d 20 31 35 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 63 6f 76 65 72 2d find-file].15))..(defun.recover-
63e0 66 69 6c 65 20 28 66 69 6c 65 29 20 22 5c 0a 56 69 73 69 74 20 66 69 6c 65 20 46 49 4c 45 2c 20 file.(file)."\.Visit.file.FILE,.
6400 62 75 74 20 67 65 74 20 63 6f 6e 74 65 6e 74 73 20 66 72 6f 6d 20 69 74 73 20 6c 61 73 74 20 61 but.get.contents.from.its.last.a
6420 75 74 6f 2d 73 61 76 65 20 66 69 6c 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 46 52 uto-save.file.".(interactive."FR
6440 65 63 6f 76 65 72 20 66 69 6c 65 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 88 c9 08 ecover.file:.").(byte-code."....
6460 21 89 10 88 ca 08 21 85 12 00 cb cc 08 5c 22 88 08 1a cd 20 29 19 ce 09 08 5c 22 3f 83 28 00 cb !.....!......\".....)....\"?.(..
6480 cf 09 5c 22 82 49 00 d0 8b 83 46 00 d1 d2 08 c6 5c 22 21 88 c5 1e 07 d3 20 88 d4 09 c5 5c 22 29 ..\".I....F.....\"!..........\")
64a0 88 d5 c5 21 82 49 00 cb d6 21 29 88 c5 89 16 08 88 d7 d8 21 87 22 20 5b 66 69 6c 65 20 66 69 6c ...!.I...!)........!.".[file.fil
64c0 65 2d 6e 61 6d 65 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 73 79 73 74 65 6d 2d 74 e-name.buffer-file-name.system-t
64e0 79 70 65 20 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 20 6e 69 6c 20 74 20 62 75 66 66 65 72 ype.standard-output.nil.t.buffer
6500 2d 72 65 61 64 2d 6f 6e 6c 79 20 62 75 66 66 65 72 2d 61 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 -read-only.buffer-auto-save-file
6520 2d 6e 61 6d 65 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 61 75 74 6f 2d 73 61 76 65 -name.expand-file-name.auto-save
6540 2d 66 69 6c 65 2d 6e 61 6d 65 2d 70 20 65 72 72 6f 72 20 22 25 73 20 69 73 20 61 6e 20 61 75 74 -file-name-p.error."%s.is.an.aut
6560 6f 2d 73 61 76 65 20 66 69 6c 65 22 20 6d 61 6b 65 2d 61 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 o-save.file".make-auto-save-file
6580 2d 6e 61 6d 65 20 66 69 6c 65 2d 6e 65 77 65 72 2d 74 68 61 6e 2d 66 69 6c 65 2d 70 20 22 41 75 -name.file-newer-than-file-p."Au
65a0 74 6f 2d 73 61 76 65 20 66 69 6c 65 20 25 73 20 6e 6f 74 20 63 75 72 72 65 6e 74 22 20 28 28 62 to-save.file.%s.not.current".((b
65c0 79 74 65 2d 63 6f 64 65 20 22 08 c5 3d 3f 85 18 00 c6 90 c7 09 21 88 c8 c9 c2 09 c2 ca 0b 0c 26 yte-code."..=?.......!.........&
65e0 07 91 88 cb cc cd 0c 5c 22 21 87 22 20 5b 73 79 73 74 65 6d 2d 74 79 70 65 20 73 74 61 6e 64 61 .......\"!.".[system-type.standa
6600 72 64 2d 6f 75 74 70 75 74 20 6e 69 6c 20 66 69 6c 65 20 66 69 6c 65 2d 6e 61 6d 65 20 76 61 78 rd-output.nil.file.file-name.vax
6620 2d 76 6d 73 20 22 2a 44 69 72 65 63 74 6f 72 79 2a 22 20 62 75 66 66 65 72 2d 66 6c 75 73 68 2d -vms."*Directory*".buffer-flush-
6640 75 6e 64 6f 20 63 61 6c 6c 2d 70 72 6f 63 65 73 73 20 22 6c 73 22 20 22 2d 6c 22 20 79 65 73 2d undo.call-process."ls"."-l".yes-
6660 6f 72 2d 6e 6f 2d 70 20 66 6f 72 6d 61 74 20 22 52 65 63 6f 76 65 72 20 61 75 74 6f 20 73 61 76 or-no-p.format."Recover.auto.sav
6680 65 20 66 69 6c 65 20 25 73 3f 20 22 5d 20 31 30 29 29 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 e.file.%s?."].10)).switch-to-buf
66a0 66 65 72 20 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 74 20 65 72 61 73 65 2d 62 75 66 fer.find-file-noselect.erase-buf
66c0 66 65 72 20 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 20 61 66 74 65 72 2d 66 fer.insert-file-contents.after-f
66e0 69 6e 64 2d 66 69 6c 65 20 22 52 65 63 6f 76 65 72 2d 66 69 6c 65 20 63 61 6e 63 65 6c 6c 65 64 ind-file."Recover-file.cancelled
6700 2e 22 20 6d 65 73 73 61 67 65 20 22 41 75 74 6f 2d 73 61 76 65 20 6f 66 66 20 69 6e 20 74 68 69 .".message."Auto-save.off.in.thi
6720 73 20 62 75 66 66 65 72 20 74 69 6c 6c 20 79 6f 75 20 64 6f 20 4d 2d 78 20 61 75 74 6f 2d 73 61 s.buffer.till.you.do.M-x.auto-sa
6740 76 65 2d 6d 6f 64 65 2e 22 5d 20 31 34 29 29 0a 0a 28 64 65 66 75 6e 20 6b 69 6c 6c 2d 73 6f 6d ve-mode."].14))..(defun.kill-som
6760 65 2d 62 75 66 66 65 72 73 20 6e 69 6c 20 22 5c 0a 46 6f 72 20 65 61 63 68 20 62 75 66 66 65 72 e-buffers.nil."\.For.each.buffer
6780 2c 20 61 73 6b 20 77 68 65 74 68 65 72 20 74 6f 20 6b 69 6c 6c 20 69 74 2e 22 20 28 69 6e 74 65 ,.ask.whether.to.kill.it.".(inte
67a0 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 20 18 08 85 42 00 08 40 ractive).(byte-code.".......B..@
67c0 19 c5 09 21 1a c6 0a c7 5c 22 3f 85 38 00 c8 0a c9 48 ca 5c 22 85 38 00 cb cc cd 0a ce 09 21 83 ...!....\"?.8....H.\".8.......!.
67e0 2f 00 cf 82 30 00 d0 23 21 85 38 00 d1 09 21 2a 88 08 41 89 10 88 82 05 00 29 87 22 20 5b 6c 69 /...0..#!.8...!*..A......).".[li
6800 73 74 20 62 75 66 66 65 72 20 6e 61 6d 65 20 6e 69 6c 20 62 75 66 66 65 72 2d 6c 69 73 74 20 62 st.buffer.name.nil.buffer-list.b
6820 75 66 66 65 72 2d 6e 61 6d 65 20 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 22 22 20 2f 3d 20 30 20 uffer-name.string-equal.""./=.0.
6840 33 32 20 79 65 73 2d 6f 72 2d 6e 6f 2d 70 20 66 6f 72 6d 61 74 20 22 42 75 66 66 65 72 20 25 73 32.yes-or-no-p.format."Buffer.%s
6860 20 25 73 2e 20 20 4b 69 6c 6c 3f 20 22 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 .%s...Kill?.".buffer-modified-p.
6880 22 48 41 53 20 42 45 45 4e 20 45 44 49 54 45 44 22 20 22 69 73 20 75 6e 6d 6f 64 69 66 69 65 64 "HAS.BEEN.EDITED"."is.unmodified
68a0 22 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 31 31 29 29 0a 0a 28 64 65 66 75 6e 20 61 75 74 6f ".kill-buffer].11))..(defun.auto
68c0 2d 73 61 76 65 2d 6d 6f 64 65 20 28 61 72 67 29 20 22 5c 0a 54 6f 67 67 6c 65 20 61 75 74 6f 2d -save-mode.(arg)."\.Toggle.auto-
68e0 73 61 76 69 6e 67 20 6f 66 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 63 75 72 72 65 6e 74 20 62 75 saving.of.contents.of.current.bu
6900 66 66 65 72 2e 0a 57 69 74 68 20 61 72 67 2c 20 74 75 72 6e 20 61 75 74 6f 2d 73 61 76 69 6e 67 ffer..With.arg,.turn.auto-saving
6920 20 6f 6e 20 69 66 20 61 72 67 20 69 73 20 70 6f 73 69 74 69 76 65 2c 20 65 6c 73 65 20 6f 66 66 .on.if.arg.is.positive,.else.off
6940 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 .".(interactive."P").(byte-code.
6960 22 c6 88 09 3f 83 0c 00 08 3f 82 20 00 09 c2 3d 86 20 00 09 3c 86 20 00 c7 09 21 85 20 00 09 c8 "...?....?.....=....<.....!.....
6980 56 85 36 00 0b 85 2d 00 0c 85 2d 00 0d 3f 83 34 00 0b 82 36 00 c9 20 89 10 88 74 85 49 00 ca cb V.6...-...-..?.4...6......t.I...
69a0 08 83 47 00 cc 82 48 00 cd 5c 22 88 08 87 22 20 5b 62 75 66 66 65 72 2d 61 75 74 6f 2d 73 61 76 ..G...H..\"...".[buffer-auto-sav
69c0 65 2d 66 69 6c 65 2d 6e 61 6d 65 20 61 72 67 20 74 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 e-file-name.arg.t.buffer-file-na
69e0 6d 65 20 61 75 74 6f 2d 73 61 76 65 2d 76 69 73 69 74 65 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 62 me.auto-save-visited-file-name.b
6a00 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 20 69 6e 74 65 67 65 72 70 20 30 20 6d uffer-read-only.nil.integerp.0.m
6a20 61 6b 65 2d 61 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 2d 6e 61 6d 65 20 6d 65 73 73 61 67 65 20 ake-auto-save-file-name.message.
6a40 22 41 75 74 6f 2d 73 61 76 65 20 25 73 20 28 69 6e 20 74 68 69 73 20 62 75 66 66 65 72 29 22 20 "Auto-save.%s.(in.this.buffer)".
6a60 22 6f 6e 22 20 22 6f 66 66 22 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 6e 61 6d 65 2d 61 "on"."off"].5))..(defun.rename-a
6a80 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 20 6e 69 6c 20 22 5c 0a 41 64 6a 75 73 74 20 63 75 72 72 uto-save-file.nil."\.Adjust.curr
6aa0 65 6e 74 20 62 75 66 66 65 72 27 73 20 61 75 74 6f 20 73 61 76 65 20 66 69 6c 65 20 6e 61 6d 65 ent.buffer's.auto.save.file.name
6ac0 20 66 6f 72 20 63 75 72 72 65 6e 74 20 63 6f 6e 64 69 74 69 6f 6e 73 2e 0a 41 6c 73 6f 20 72 65 .for.current.conditions..Also.re
6ae0 6e 61 6d 65 20 61 6e 79 20 65 78 69 73 74 69 6e 67 20 61 75 74 6f 20 73 61 76 65 20 66 69 6c 65 name.any.existing.auto.save.file
6b00 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 18 c4 20 89 11 88 08 85 5c 22 00 09 85 5c 22 00 .".(byte-code.".........\"...\".
6b20 c5 09 0a 5c 22 3f 85 5c 22 00 c5 09 08 5c 22 3f 85 5c 22 00 c6 08 21 85 2a 00 c7 08 09 c3 23 29 ...\"?.\"....\"?.\"...!.*.....#)
6b40 87 22 20 5b 6f 73 61 76 65 20 62 75 66 66 65 72 2d 61 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 2d .".[osave.buffer-auto-save-file-
6b60 6e 61 6d 65 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 74 20 6d 61 6b 65 2d 61 75 74 name.buffer-file-name.t.make-aut
6b80 6f 2d 73 61 76 65 2d 66 69 6c 65 2d 6e 61 6d 65 20 73 74 72 69 6e 67 3d 20 66 69 6c 65 2d 65 78 o-save-file-name.string=.file-ex
6ba0 69 73 74 73 2d 70 20 72 65 6e 61 6d 65 2d 66 69 6c 65 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 ists-p.rename-file].8))..(defun.
6bc0 6d 61 6b 65 2d 61 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e 69 6c 20 22 5c 0a make-auto-save-file-name.nil."\.
6be0 52 65 74 75 72 6e 20 66 69 6c 65 20 6e 61 6d 65 20 74 6f 20 75 73 65 20 66 6f 72 20 61 75 74 6f Return.file.name.to.use.for.auto
6c00 2d 73 61 76 65 73 20 6f 66 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 0a 44 6f 65 73 20 6e -saves.of.current.buffer..Does.n
6c20 6f 74 20 63 6f 6e 73 69 64 65 72 20 61 75 74 6f 2d 73 61 76 65 2d 76 69 73 69 74 65 64 2d 66 69 ot.consider.auto-save-visited-fi
6c40 6c 65 2d 6e 61 6d 65 3b 20 74 68 61 74 20 69 73 20 63 68 65 63 6b 65 64 0a 62 65 66 6f 72 65 20 le-name;.that.is.checked.before.
6c60 63 61 6c 6c 69 6e 67 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 2e 0a 59 6f 75 20 63 61 6e 20 72 calling.this.function..You.can.r
6c80 65 64 65 66 69 6e 65 20 74 68 69 73 20 66 6f 72 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 2e 0a edefine.this.for.customization..
6ca0 53 65 65 20 61 6c 73 6f 20 61 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 2d 6e 61 6d 65 2d 70 2e 22 See.also.auto-save-file-name-p."
6cc0 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 83 10 00 c1 08 21 c2 c3 08 21 c2 52 82 17 00 c4 c5 c6 .(byte-code."......!...!.R......
6ce0 20 c2 51 21 87 22 20 5b 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 2d 6e 61 ..Q!.".[buffer-file-name.file-na
6d00 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 22 23 22 20 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 me-directory."#".file-name-nondi
6d20 72 65 63 74 6f 72 79 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 23 25 22 20 62 75 rectory.expand-file-name."#%".bu
6d40 66 66 65 72 2d 6e 61 6d 65 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 61 75 74 6f 2d 73 61 76 65 ffer-name].7))..(defun.auto-save
6d60 2d 66 69 6c 65 2d 6e 61 6d 65 2d 70 20 28 66 69 6c 65 6e 61 6d 65 29 20 22 5c 0a 52 65 74 75 72 -file-name-p.(filename)."\.Retur
6d80 6e 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 46 49 4c 45 4e 41 4d 45 20 63 61 6e 20 62 65 20 79 69 65 n.non-nil.if.FILENAME.can.be.yie
6da0 6c 64 65 64 20 62 79 20 6d 61 6b 65 2d 61 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 2d 6e 61 6d 65 lded.by.make-auto-save-file-name
6dc0 2e 0a 46 49 4c 45 4e 41 4d 45 20 73 68 6f 75 6c 64 20 6c 61 63 6b 20 73 6c 61 73 68 65 73 2e 0a ..FILENAME.should.lack.slashes..
6de0 59 6f 75 20 63 61 6e 20 72 65 64 65 66 69 6e 65 20 74 68 69 73 20 66 6f 72 20 63 75 73 74 6f 6d You.can.redefine.this.for.custom
6e00 69 7a 61 74 69 6f 6e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 5c 22 87 22 20 5b 66 ization.".(byte-code."...\".".[f
6e20 69 6c 65 6e 61 6d 65 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 23 2e 2a 23 24 22 5d 20 33 ilename.string-match."^#.*#$"].3
6e40 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6c 69 73 74 2d 64 69 72 65 63 74 6f 72 79 2d 62 72 69 ))..(defconst.list-directory-bri
6e60 65 66 2d 73 77 69 74 63 68 65 73 20 22 2d 43 46 22 20 22 5c 0a 2a 53 77 69 74 63 68 65 73 20 66 ef-switches."-CF"."\.*Switches.f
6e80 6f 72 20 6c 69 73 74 2d 64 69 72 65 63 74 6f 72 79 20 74 6f 20 70 61 73 73 20 74 6f 20 60 6c 73 or.list-directory.to.pass.to.`ls
6ea0 27 20 66 6f 72 20 62 72 69 65 66 20 6c 69 73 74 69 6e 67 2c 22 29 0a 0a 28 64 65 66 63 6f 6e 73 '.for.brief.listing,")..(defcons
6ec0 74 20 6c 69 73 74 2d 64 69 72 65 63 74 6f 72 79 2d 76 65 72 62 6f 73 65 2d 73 77 69 74 63 68 65 t.list-directory-verbose-switche
6ee0 73 20 22 2d 6c 22 20 22 5c 0a 2a 53 77 69 74 63 68 65 73 20 66 6f 72 20 6c 69 73 74 2d 64 69 72 s."-l"."\.*Switches.for.list-dir
6f00 65 63 74 6f 72 79 20 74 6f 20 70 61 73 73 20 74 6f 20 60 6c 73 27 20 66 6f 72 20 76 65 72 62 6f ectory.to.pass.to.`ls'.for.verbo
6f20 73 65 20 6c 69 73 74 69 6e 67 2c 22 29 0a 0a 28 64 65 66 75 6e 20 6c 69 73 74 2d 64 69 72 65 63 se.listing,")..(defun.list-direc
6f40 74 6f 72 79 20 28 64 69 72 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 76 65 72 62 6f 73 65 29 tory.(dirname.&optional.verbose)
6f60 20 22 5c 0a 44 69 73 70 6c 61 79 20 61 20 6c 69 73 74 20 6f 66 20 66 69 6c 65 73 20 69 6e 20 6f ."\.Display.a.list.of.files.in.o
6f80 72 20 6d 61 74 63 68 69 6e 67 20 44 49 52 4e 41 4d 45 2c 20 61 20 6c 61 20 60 6c 73 27 2e 0a 44 r.matching.DIRNAME,.a.la.`ls'..D
6fa0 49 52 4e 41 4d 45 20 69 73 20 67 6c 6f 62 62 65 64 20 62 79 20 74 68 65 20 73 68 65 6c 6c 20 69 IRNAME.is.globbed.by.the.shell.i
6fc0 66 20 6e 65 63 65 73 73 61 72 79 2e 0a 50 72 65 66 69 78 20 61 72 67 20 28 73 65 63 6f 6e 64 20 f.necessary..Prefix.arg.(second.
6fe0 61 72 67 20 69 66 20 6e 6f 6e 69 6e 74 65 72 61 63 74 69 76 65 29 20 6d 65 61 6e 73 20 73 75 70 arg.if.noninteractive).means.sup
7000 70 6c 79 20 2d 6c 20 73 77 69 74 63 68 20 74 6f 20 60 6c 73 27 2e 0a 41 63 74 69 6f 6e 73 20 63 ply.-l.switch.to.`ls'..Actions.c
7020 6f 6e 74 72 6f 6c 6c 65 64 20 62 79 20 76 61 72 69 61 62 6c 65 73 20 6c 69 73 74 2d 64 69 72 65 ontrolled.by.variables.list-dire
7040 63 74 6f 72 79 2d 62 72 69 65 66 2d 73 77 69 74 63 68 65 73 0a 20 61 6e 64 20 6c 69 73 74 2d 64 ctory-brief-switches..and.list-d
7060 69 72 65 63 74 6f 72 79 2d 76 65 72 62 6f 73 65 2d 73 77 69 74 63 68 65 73 2e 22 20 28 69 6e 74 irectory-verbose-switches.".(int
7080 65 72 61 63 74 69 76 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 18 c4 08 83 0b 00 c5 82 0c 00 eractive.(byte-code."...........
70a0 c6 c2 0b c2 24 08 44 29 87 22 20 5b 70 66 78 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 ....$.D).".[pfx.current-prefix-a
70c0 72 67 20 6e 69 6c 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 72 65 61 64 2d 66 69 rg.nil.default-directory.read-fi
70e0 6c 65 2d 6e 61 6d 65 20 22 4c 69 73 74 20 64 69 72 65 63 74 6f 72 79 20 28 76 65 72 62 6f 73 65 le-name."List.directory.(verbose
7100 29 3a 20 22 20 22 4c 69 73 74 20 64 69 72 65 63 74 6f 72 79 20 28 62 72 69 65 66 29 3a 20 22 5d ):."."List.directory.(brief):."]
7120 20 35 29 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 0d 83 0b 00 0e 06 82 0d 00 0e 07 c2 1e .5)).(byte-code."...............
7140 08 1c 0e 09 86 1a 00 0b 89 16 09 88 cd 0e 09 21 85 36 00 ca 89 16 08 88 ce cf 0e 09 5c 22 86 36 ...............!.6..........\".6
7160 00 0e 09 d0 50 89 16 09 88 d1 0e 09 21 89 16 09 88 d2 90 d3 0e 0b 21 88 d4 d5 21 88 d4 0e 09 21 ....P.......!.........!...!....!
7180 88 d6 20 88 0e 08 83 65 00 d7 d8 c2 0e 0b c2 0c 0e 09 26 06 82 7d 00 d9 0e 09 21 1b d7 0e 0c c2 .......e..........&..}....!.....
71a0 0e 0b c2 da db 0c dc dd 0e 09 21 52 26 06 29 91 2a 87 22 20 5b 70 66 78 20 63 75 72 72 65 6e 74 ..........!R&.).*.".[pfx.current
71c0 2d 70 72 65 66 69 78 2d 61 72 67 20 6e 69 6c 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 -prefix-arg.nil.default-director
71e0 79 20 73 77 69 74 63 68 65 73 20 76 65 72 62 6f 73 65 20 6c 69 73 74 2d 64 69 72 65 63 74 6f 72 y.switches.verbose.list-director
7200 79 2d 76 65 72 62 6f 73 65 2d 73 77 69 74 63 68 65 73 20 6c 69 73 74 2d 64 69 72 65 63 74 6f 72 y-verbose-switches.list-director
7220 79 2d 62 72 69 65 66 2d 73 77 69 74 63 68 65 73 20 66 75 6c 6c 2d 64 69 72 2d 70 20 64 69 72 6e y-brief-switches.full-dir-p.dirn
7240 61 6d 65 20 74 20 73 74 61 6e 64 61 72 64 2d 6f 75 74 70 75 74 20 73 68 65 6c 6c 2d 66 69 6c 65 ame.t.standard-output.shell-file
7260 2d 6e 61 6d 65 20 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 73 74 72 69 6e 67 2d 6d 61 -name.file-directory-p.string-ma
7280 74 63 68 20 22 2f 24 22 20 22 2f 22 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 2a tch."/$"."/".expand-file-name."*
72a0 44 69 72 65 63 74 6f 72 79 2a 22 20 62 75 66 66 65 72 2d 66 6c 75 73 68 2d 75 6e 64 6f 20 70 72 Directory*".buffer-flush-undo.pr
72c0 69 6e 63 20 22 44 69 72 65 63 74 6f 72 79 20 22 20 74 65 72 70 72 69 20 63 61 6c 6c 2d 70 72 6f inc."Directory.".terpri.call-pro
72e0 63 65 73 73 20 22 6c 73 22 20 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 22 2d cess."ls".file-name-directory."-
7300 63 22 20 22 65 78 65 63 20 6c 73 20 22 20 22 20 22 20 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 c"."exec.ls.".".".file-name-nond
7320 69 72 65 63 74 6f 72 79 5d 20 32 31 29 29 0a 0a 28 64 65 66 75 6e 20 73 61 76 65 2d 62 75 66 66 irectory].21))..(defun.save-buff
7340 65 72 73 2d 6b 69 6c 6c 2d 65 6d 61 63 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 20 22 ers-kill-emacs.(&optional.arg)."
7360 5c 0a 4f 66 66 65 72 20 74 6f 20 73 61 76 65 20 65 61 63 68 20 62 75 66 66 65 72 2c 20 74 68 65 \.Offer.to.save.each.buffer,.the
7380 6e 20 6b 69 6c 6c 20 74 68 69 73 20 45 6d 61 63 73 20 66 6f 72 6b 2e 0a 57 69 74 68 20 70 72 65 n.kill.this.Emacs.fork..With.pre
73a0 66 69 78 20 61 72 67 2c 20 73 69 6c 65 6e 74 6c 79 20 73 61 76 65 20 61 6c 6c 20 66 69 6c 65 2d fix.arg,.silently.save.all.file-
73c0 76 69 73 69 74 69 6e 67 20 62 75 66 66 65 72 73 2c 20 74 68 65 6e 20 6b 69 6c 6c 2e 22 20 28 69 visiting.buffers,.then.kill.".(i
73e0 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 88 c6 08 nteractive."P").(byte-code."....
7400 c1 5c 22 88 c1 c7 c8 c9 20 5c 22 3e 3f 86 15 00 ca cb 21 85 5c 5c 00 cc cd 21 3f 86 57 00 cd 20 .\"......\">?.....!.\\...!?.W...
7420 c5 1b 1a 0a 85 4d 00 ce 0a 40 21 cf 3e 85 44 00 d0 0a 40 21 1c d0 0a 40 0c 5c 22 88 0c 29 85 44 .....M...@!.>.D...@!...@.\"..).D
7440 00 c1 89 13 88 0a 41 89 12 88 82 24 00 88 0b 3f 86 56 00 ca d1 21 2a 85 5c 5c 00 d2 20 87 22 20 ......A....$...?.V...!*.\\....".
7460 5b 61 72 67 20 74 20 70 72 6f 63 65 73 73 65 73 20 61 63 74 69 76 65 20 76 61 6c 20 6e 69 6c 20 [arg.t.processes.active.val.nil.
7480 73 61 76 65 2d 73 6f 6d 65 2d 62 75 66 66 65 72 73 20 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 save-some-buffers.mapcar.(lambda
74a0 20 28 62 75 66 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 85 09 00 c2 08 21 87 22 20 5b .(buf).(byte-code."..!.....!.".[
74c0 62 75 66 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 62 75 66 66 65 72 2d 6d 6f 64 69 buf.buffer-file-name.buffer-modi
74e0 66 69 65 64 2d 70 5d 20 33 29 29 20 62 75 66 66 65 72 2d 6c 69 73 74 20 79 65 73 2d 6f 72 2d 6e fied-p].3)).buffer-list.yes-or-n
7500 6f 2d 70 20 22 4d 6f 64 69 66 69 65 64 20 62 75 66 66 65 72 73 20 65 78 69 73 74 3b 20 65 78 69 o-p."Modified.buffers.exist;.exi
7520 74 20 61 6e 79 77 61 79 3f 20 22 20 66 62 6f 75 6e 64 70 20 70 72 6f 63 65 73 73 2d 6c 69 73 74 t.anyway?.".fboundp.process-list
7540 20 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 28 72 75 6e 20 73 74 6f 70 20 6f 70 65 6e 29 20 .process-status.(run.stop.open).
7560 70 72 6f 63 65 73 73 2d 6b 69 6c 6c 2d 77 69 74 68 6f 75 74 2d 71 75 65 72 79 20 22 41 63 74 69 process-kill-without-query."Acti
7580 76 65 20 70 72 6f 63 65 73 73 65 73 20 65 78 69 73 74 3b 20 6b 69 6c 6c 20 74 68 65 6d 20 61 6e ve.processes.exist;.kill.them.an
75a0 64 20 65 78 69 74 20 61 6e 79 77 61 79 3f 20 22 20 6b 69 6c 6c 2d 65 6d 61 63 73 5d 20 31 32 29 d.exit.anyway?.".kill-emacs].12)
75c0 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 63 74 6c 2d 78 2d 6d 61 70 20 22 06 22 20 28 71 75 )..(define-key.ctl-x-map.".".(qu
75e0 6f 74 65 20 66 69 6e 64 2d 66 69 6c 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 63 74 6c ote.find-file))..(define-key.ctl
7600 2d 78 2d 6d 61 70 20 22 11 22 20 28 71 75 6f 74 65 20 74 6f 67 67 6c 65 2d 72 65 61 64 2d 6f 6e -x-map.".".(quote.toggle-read-on
7620 6c 79 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 63 74 6c 2d 78 2d 6d 61 70 20 22 12 22 20 ly))..(define-key.ctl-x-map.".".
7640 28 71 75 6f 74 65 20 66 69 6e 64 2d 66 69 6c 65 2d 72 65 61 64 2d 6f 6e 6c 79 29 29 0a 0a 28 64 (quote.find-file-read-only))..(d
7660 65 66 69 6e 65 2d 6b 65 79 20 63 74 6c 2d 78 2d 6d 61 70 20 22 16 22 20 28 71 75 6f 74 65 20 66 efine-key.ctl-x-map.".".(quote.f
7680 69 6e 64 2d 61 6c 74 65 72 6e 61 74 65 2d 66 69 6c 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 ind-alternate-file))..(define-ke
76a0 79 20 63 74 6c 2d 78 2d 6d 61 70 20 22 13 22 20 28 71 75 6f 74 65 20 73 61 76 65 2d 62 75 66 66 y.ctl-x-map.".".(quote.save-buff
76c0 65 72 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 63 74 6c 2d 78 2d 6d 61 70 20 22 73 22 20 er))..(define-key.ctl-x-map."s".
76e0 28 71 75 6f 74 65 20 73 61 76 65 2d 73 6f 6d 65 2d 62 75 66 66 65 72 73 29 29 0a 0a 28 64 65 66 (quote.save-some-buffers))..(def
7700 69 6e 65 2d 6b 65 79 20 63 74 6c 2d 78 2d 6d 61 70 20 22 17 22 20 28 71 75 6f 74 65 20 77 72 69 ine-key.ctl-x-map.".".(quote.wri
7720 74 65 2d 66 69 6c 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 63 74 6c 2d 78 2d 6d 61 70 te-file))..(define-key.ctl-x-map
7740 20 22 69 22 20 28 71 75 6f 74 65 20 69 6e 73 65 72 74 2d 66 69 6c 65 29 29 0a 0a 28 64 65 66 69 ."i".(quote.insert-file))..(defi
7760 6e 65 2d 6b 65 79 20 65 73 63 2d 6d 61 70 20 22 7e 22 20 28 71 75 6f 74 65 20 6e 6f 74 2d 6d 6f ne-key.esc-map."~".(quote.not-mo
7780 64 69 66 69 65 64 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 63 74 6c 2d 78 2d 6d 61 70 20 dified))..(define-key.ctl-x-map.
77a0 22 04 22 20 28 71 75 6f 74 65 20 6c 69 73 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 0a 28 64 65 ".".(quote.list-directory))..(de
77c0 66 69 6e 65 2d 6b 65 79 20 63 74 6c 2d 78 2d 6d 61 70 20 22 03 22 20 28 71 75 6f 74 65 20 73 61 fine-key.ctl-x-map.".".(quote.sa
77e0 76 65 2d 62 75 66 66 65 72 73 2d 6b 69 6c 6c 2d 65 6d 61 63 73 29 29 0a 0a 28 64 65 66 76 61 72 ve-buffers-kill-emacs))..(defvar
7800 20 63 74 6c 2d 78 2d 34 2d 6d 61 70 20 28 6d 61 6b 65 2d 6b 65 79 6d 61 70 29 20 22 5c 0a 4b 65 .ctl-x-4-map.(make-keymap)."\.Ke
7820 79 6d 61 70 20 66 6f 72 20 73 75 62 63 6f 6d 6d 61 6e 64 73 20 6f 66 20 43 2d 78 20 34 22 29 0a ymap.for.subcommands.of.C-x.4").
7840 0a 28 66 73 65 74 20 28 71 75 6f 74 65 20 63 74 6c 2d 78 2d 34 2d 70 72 65 66 69 78 29 20 63 74 .(fset.(quote.ctl-x-4-prefix).ct
7860 6c 2d 78 2d 34 2d 6d 61 70 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20 63 74 6c 2d 78 2d 6d 61 l-x-4-map)..(define-key.ctl-x-ma
7880 70 20 22 34 22 20 28 71 75 6f 74 65 20 63 74 6c 2d 78 2d 34 2d 70 72 65 66 69 78 29 29 0a 0a 28 p."4".(quote.ctl-x-4-prefix))..(
78a0 64 65 66 69 6e 65 2d 6b 65 79 20 63 74 6c 2d 78 2d 34 2d 6d 61 70 20 22 66 22 20 28 71 75 6f 74 define-key.ctl-x-4-map."f".(quot
78c0 65 20 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 29 29 0a 0a 28 64 65 66 e.find-file-other-window))..(def
78e0 69 6e 65 2d 6b 65 79 20 63 74 6c 2d 78 2d 34 2d 6d 61 70 20 22 06 22 20 28 71 75 6f 74 65 20 66 ine-key.ctl-x-4-map.".".(quote.f
7900 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 29 29 0a 0a 28 64 65 66 69 6e 65 ind-file-other-window))..(define
7920 2d 6b 65 79 20 63 74 6c 2d 78 2d 34 2d 6d 61 70 20 22 62 22 20 28 71 75 6f 74 65 20 73 77 69 74 -key.ctl-x-4-map."b".(quote.swit
7940 63 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 29 29 0a ch-to-buffer-other-window)).