|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ f ┃
Length: 28653 (0x6fed)
Names: »files.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/files.elc«
0x0000…0020 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┆ 0x0020…0040 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┆ 0x0040…0060 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 ┆ 0x0060…0080 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┆ 0x0080…00a0 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┆ 0x00a0…00c0 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))) ┆ 0x00c0…00e0 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┆ 0x00e0…0100 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 ┆ 0x0100…0120 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┆ 0x0120…0140 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┆ 0x0140…0160 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┆ 0x0160…0180 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 ┆ 0x0180…01a0 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┆ 0x01a0…01c0 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 ┆ 0x01c0…01e0 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┆ 0x01e0…0200 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┆ 0x0200…0220 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 ┆ 0x0220…0240 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┆ 0x0240…0260 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┆ 0x0260…0280 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,┆ 0x0280…02a0 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┆ 0x02a0…02c0 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 ┆ 0x02c0…02e0 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┆ 0x02e0…0300 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┆ 0x0300…0320 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 ┆ 0x0320…0340 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┆ 0x0340…0360 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 ┆ 0x0360…0380 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┆ 0x0380…03a0 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┆ 0x03a0…03c0 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┆ 0x03c0…03e0 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┆ 0x03e0…0400 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┆ 0x0400…0420 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 ┆ 0x0420…0440 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┆ 0x0440…0460 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┆ 0x0460…0480 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┆ 0x0480…04a0 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┆ 0x04a0…04c0 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┆ 0x04c0…04e0 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┆ 0x04e0…0500 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 ┆ 0x0500…0520 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.┆ 0x0520…0540 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 ┆ 0x0540…0560 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.")┆ 0x0560…0580 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┆ 0x0580…05a0 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┆ 0x05a0…05c0 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┆ 0x05c0…05e0 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┆ 0x05e0…0600 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┆ 0x0600…0620 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)┆ 0x0620…0640 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┆ 0x0640…0660 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 ┆ 0x0660…0680 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┆ 0x0680…06a0 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 ┆ 0x06a0…06c0 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┆ 0x06c0…06e0 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┆ 0x06e0…0700 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┆ 0x0700…0720 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┆ 0x0720…0740 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┆ 0x0740…0760 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┆ 0x0760…0780 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┆ 0x0780…07a0 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┆ 0x07a0…07c0 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 ┆ 0x07c0…07e0 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┆ 0x07e0…0800 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┆ 0x0800…0820 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┆ 0x0820…0840 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┆ 0x0840…0860 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┆ 0x0860…0880 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┆ 0x0880…08a0 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┆ 0x08a0…08c0 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┆ 0x08c0…08e0 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┆ 0x08e0…0900 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┆ 0x0900…0920 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┆ 0x0920…0940 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┆ 0x0940…0960 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┆ 0x0960…0980 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┆ 0x0980…09a0 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┆ 0x09a0…09c0 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┆ 0x09c0…09e0 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┆ 0x09e0…0a00 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 "\ ┆ 0x0a00…0a20 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 ┆ 0x0a20…0a40 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┆ 0x0a40…0a60 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-┆ 0x0a60…0a80 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┆ 0x0a80…0aa0 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 ┆ 0x0aa0…0ac0 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┆ 0x0ac0…0ae0 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┆ 0x0ae0…0b00 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┆ 0x0b00…0b20 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┆ 0x0b20…0b40 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┆ 0x0b40…0b60 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┆ 0x0b60…0b80 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┆ 0x0b80…0ba0 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┆ 0x0ba0…0bc0 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┆ 0x0bc0…0be0 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┆ 0x0be0…0c00 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┆ 0x0c00…0c20 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."┆ 0x0c20…0c40 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┆ 0x0c40…0c60 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┆ 0x0c60…0c80 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┆ 0x0c80…0ca0 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┆ 0x0ca0…0cc0 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┆ 0x0cc0…0ce0 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┆ 0x0ce0…0d00 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┆ 0x0d00…0d20 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┆ 0x0d20…0d40 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┆ 0x0d40…0d60 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┆ 0x0d60…0d80 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┆ 0x0d80…0da0 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┆ 0x0da0…0dc0 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┆ 0x0dc0…0de0 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┆ 0x0de0…0e00 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┆ 0x0e00…0e20 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┆ 0x0e20…0e40 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┆ 0x0e40…0e60 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┆ 0x0e60…0e80 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 ┆ 0x0e80…0ea0 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┆ 0x0ea0…0ec0 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┆ 0x0ec0…0ee0 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 ┆ 0x0ee0…0f00 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┆ 0x0f00…0f20 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, ┆ 0x0f20…0f40 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┆ 0x0f40…0f60 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┆ 0x0f60…0f80 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┆ 0x0f80…0fa0 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┆ 0x0fa0…0fc0 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┆ 0x0fc0…0fe0 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┆ 0x0fe0…1000 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┆ 0x1000…1020 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-┆ 0x1020…1040 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┆ 0x1040…1060 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┆ 0x1060…1080 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┆ 0x1080…10a0 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┆ 0x10a0…10c0 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┆ 0x10c0…10e0 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┆ 0x10e0…1100 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 ┆ 0x1100…1120 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┆ 0x1120…1140 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 ┆ 0x1140…1160 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┆ 0x1160…1180 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┆ 0x1180…11a0 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.┆ 0x11a0…11c0 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┆ 0x11c0…11e0 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┆ 0x11e0…1200 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┆ 0x1200…1220 68 69 73 20 76 61 72 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 ┆his variable.") (or (fboundp (q┆ 0x1220…1240 75 6f 74 65 20 6c 6f 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 ┆uote lock-buffer)) (fset (quote ┆ 0x1240…1260 6c 6f 63 6b 2d 62 75 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 ┆lock-buffer) (quote ignore))) (┆ 0x1260…1280 6f 72 20 28 66 62 6f 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 ┆or (fboundp (quote unlock-buffer┆ 0x1280…12a0 29 29 20 28 66 73 65 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 ┆)) (fset (quote unlock-buffer) (┆ 0x12a0…12c0 71 75 6f 74 65 20 69 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 ┆quote ignore))) (defun pwd nil ┆ 0x12c0…12e0 22 5c 0a 53 68 6f 77 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 ┆"\ Show the current default dire┆ 0x12e0…1300 63 74 6f 72 79 2e 22 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 ┆ctory." (interactive nil) (byte-┆ 0x1300…1320 63 6f 64 65 20 22 c0 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 ┆code " \" " [nil default-dir┆ 0x1320…1340 65 63 74 6f 72 79 20 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 ┆ectory message "Directory %s"] 3┆ 0x1340…1360 29 29 0a 0a 28 64 65 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 ┆)) (defun cd (dir) "\ Make DIR ┆ 0x1360…1380 62 65 63 6f 6d 65 20 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 ┆become the current buffer's defa┆ 0x1380…13a0 75 6c 74 20 64 69 72 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 ┆ult directory." (interactive "DC┆ 0x13a0…13c0 68 61 6e 67 65 20 64 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 ┆hange default directory: ") (byt┆ 0x13c0…13e0 65 2d 63 6f 64 65 20 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 ┆e-code " ! =? ! !┆ 0x13e0…1400 3f 83 23 00 c8 c9 08 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 ┆? # \" & " [dir system┆ 0x1400…1420 2d 74 79 70 65 20 64 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 ┆-type default-directory nil expa┆ 0x1420…1440 6e 64 2d 66 69 6c 65 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 ┆nd-file-name vax-vms file-name-a┆ 0x1440…1460 73 2d 64 69 72 65 63 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 ┆s-directory file-directory-p err┆ 0x1460…1480 6f 72 20 22 25 73 20 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 ┆or "%s is not a directory" pwd] ┆ 0x1480…14a0 36 29 29 0a 0a 28 64 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 ┆6)) (defun load-file (file) "\ ┆ 0x14a0…14c0 4c 6f 61 64 20 74 68 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 ┆Load the file FILE of Lisp code.┆ 0x14c0…14e0 22 20 28 69 6e 74 65 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 ┆" (interactive "fLoad file: ") (┆ 0x14e0…1500 62 79 74 65 2d 63 6f 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 ┆byte-code " ! $ " [file ni┆ 0x1500…1520 6c 20 74 20 6c 6f 61 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 ┆l t load expand-file-name] 6)) ┆ 0x1520…1540 28 64 65 66 75 6e 20 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 ┆(defun load-library (library) "\┆ 0x1540…1560 0a 4c 6f 61 64 20 74 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 ┆ Load the library named LIBRARY.┆ 0x1560…1580 0a 54 68 69 73 20 69 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 ┆ This is an interface to the fun┆ 0x1580…15a0 63 74 69 6f 6e 20 60 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 ┆ction `load'." (interactive "sLo┆ 0x15a0…15c0 61 64 20 6c 69 62 72 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 ┆ad library: ") (byte-code " !┆ 0x15c0…15e0 87 22 20 5b 6c 69 62 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 ┆ " [library nil load] 2)) (defu┆ 0x15e0…1600 6e 20 73 77 69 74 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 20 ┆n switch-to-buffer-other-window ┆ 0x1600…1620 28 62 75 66 66 65 72 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 ┆(buffer) "\ Select buffer BUFFER┆ 0x1620…1640 20 69 6e 20 61 6e 6f 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 ┆ in another window." (interactiv┆ 0x1640…1660 65 20 22 42 53 77 69 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 ┆e "BSwitch to buffer in other wi┆ 0x1660…1680 6e 64 6f 77 3a 20 22 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 ┆ndow: ") (byte-code " \") ┆ 0x1680…16a0 22 20 5b 70 6f 70 2d 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 ┆" [pop-up-windows t buffer nil p┆ 0x16a0…16c0 6f 70 2d 74 6f 2d 62 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 ┆op-to-buffer] 3)) (defun find-f┆ 0x16c0…16e0 69 6c 65 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 4c 45 ┆ile (filename) "\ Edit file FILE┆ 0x16e0…1700 4e 41 4d 45 2e 0a 53 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 ┆NAME. Switch to a buffer visitin┆ 0x1700…1720 67 20 66 69 6c 65 20 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 ┆g file FILENAME, creating one if┆ 0x1720…1740 20 6e 6f 6e 65 20 61 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 ┆ none already exists." (interact┆ 0x1740…1760 69 76 65 20 22 46 46 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 ┆ive "FFind file: ") (byte-code "┆ 0x1760…1780 c1 88 c2 c3 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 ┆ !! " [filename nil switch-t┆ 0x1780…17a0 6f 2d 62 75 66 66 65 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 ┆o-buffer find-file-noselect] 3))┆ 0x17a0…17c0 0a 0a 28 64 65 66 75 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 ┆ (defun find-file-other-window ┆ 0x17c0…17e0 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 4c 45 4e 41 4d 45 ┆(filename) "\ Edit file FILENAME┆ 0x17e0…1800 2c 20 69 6e 20 61 6e 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 ┆, in another window. May create ┆ 0x1800…1820 61 20 6e 65 77 20 77 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 ┆a new window, or reuse an existi┆ 0x1820…1840 6e 67 20 6f 6e 65 3b 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 ┆ng one; see the function display┆ 0x1840…1860 2d 62 75 66 66 65 72 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 ┆-buffer." (interactive "FFind fi┆ 0x1860…1880 6c 65 20 69 6e 20 6f 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 ┆le in other window: ") (byte-cod┆ 0x1880…18a0 65 20 22 c1 88 c2 c3 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 ┆e " !! " [filename nil switc┆ 0x18a0…18c0 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 66 69 6e 64 2d 66 69 ┆h-to-buffer-other-window find-fi┆ 0x18c0…18e0 6c 65 2d 6e 6f 73 65 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 ┆le-noselect] 3)) (defun find-fi┆ 0x18e0…1900 6c 65 2d 72 65 61 64 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 ┆le-read-only (filename) "\ Edit ┆ 0x1900…1920 66 69 6c 65 20 46 49 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 ┆file FILENAME but don't save wit┆ […truncated at 200 lines…]