DataMuseum.dk Presents historical artifacts from the history of: DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦3d155ec57⟧

    Length: 735 (0x2df)
    Names: »vms-patch.elc«

Derivation

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/vms-patch.elc« 

Hex Dump

0x000…020 0a 28 64 65 66 75 6e 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   ┆ (defun make-auto-save-file-name┆
0x020…040 20 6e 69 6c 20 22 5c 0a 52 65 74 75 72 6e 20 66 69 6c 65 20 6e 61 6d 65 20 74 6f 20 75 73 65 20   ┆ nil "\ Return file name to use ┆
0x040…060 66 6f 72 20 61 75 74 6f 2d 73 61 76 65 73 20 6f 66 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72   ┆for auto-saves of current buffer┆
0x060…080 2e 0a 44 6f 65 73 20 6e 6f 74 20 63 6f 6e 73 69 64 65 72 20 61 75 74 6f 2d 73 61 76 65 2d 76 69   ┆. Does not consider auto-save-vi┆
0x080…0a0 73 69 74 65 64 2d 66 69 6c 65 2d 6e 61 6d 65 3b 20 74 68 61 74 20 69 73 20 63 68 65 63 6b 65 64   ┆sited-file-name; that is checked┆
0x0a0…0c0 0a 62 65 66 6f 72 65 20 63 61 6c 6c 69 6e 67 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 2e 0a 54   ┆ before calling this function. T┆
0x0c0…0e0 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 20 79 6f   ┆his is a separate function so yo┆
0x0e0…100 75 72 20 2e 65 6d 61 63 73 20 66 69 6c 65 20 6f 72 20 73 69 74 65 2d 69 6e 69 74 2e 65 6c 20 63   ┆ur .emacs file or site-init.el c┆
0x100…120 61 6e 20 72 65 64 65 66 69 6e 65 20 69 74 2e 0a 53 65 65 20 61 6c 73 6f 20 61 75 74 6f 2d 73 61   ┆an redefine it. See also auto-sa┆
0x120…140 76 65 2d 66 69 6c 65 2d 6e 61 6d 65 2d 70 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 83 10   ┆ve-file-name-p." (byte-code "   ┆
0x140…160 00 c1 08 21 c2 c3 08 21 c4 52 82 17 00 c5 c6 c7 20 c4 51 21 87 22 20 5b 62 75 66 66 65 72 2d 66   ┆   !   ! R        Q! " [buffer-f┆
0x160…180 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 22 5f 24   ┆ile-name file-name-directory "_$┆
0x180…1a0 22 20 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 22 24 22 20 65 78 70   ┆" file-name-nondirectory "$" exp┆
0x1a0…1c0 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 5f 24 5f 22 20 62 75 66 66 65 72 2d 6e 61 6d 65 5d   ┆and-file-name "_$_" buffer-name]┆
0x1c0…1e0 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 61 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 2d 6e 61 6d 65   ┆ 7))  (defun auto-save-file-name┆
0x1e0…200 2d 70 20 28 66 69 6c 65 6e 61 6d 65 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 20 69 66 20 46 49 4c   ┆-p (filename) "\ Return t if FIL┆
0x200…220 45 4e 41 4d 45 20 63 61 6e 20 62 65 20 79 69 65 6c 64 65 64 20 62 79 20 6d 61 6b 65 2d 61 75 74   ┆ENAME can be yielded by make-aut┆
0x220…240 6f 2d 73 61 76 65 2d 66 69 6c 65 2d 6e 61 6d 65 2e 0a 46 49 4c 45 4e 41 4d 45 20 73 68 6f 75 6c   ┆o-save-file-name. FILENAME shoul┆
0x240…260 64 20 6c 61 63 6b 20 73 6c 61 73 68 65 73 2e 0a 54 68 69 73 20 69 73 20 61 20 73 65 70 61 72 61   ┆d lack slashes. This is a separa┆
0x260…280 74 65 20 66 75 6e 63 74 69 6f 6e 20 73 6f 20 79 6f 75 72 20 2e 65 6d 61 63 73 20 66 69 6c 65 20   ┆te function so your .emacs file ┆
0x280…2a0 6f 72 20 73 69 74 65 2d 69 6e 69 74 2e 65 6c 20 63 61 6e 20 72 65 64 65 66 69 6e 65 20 69 74 2e   ┆or site-init.el can redefine it.┆
0x2a0…2c0 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 6e 61 6d 65 20   ┆" (byte-code "   \" " [filename ┆
0x2c0…2df 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 5f 5c 5c 24 2e 2a 5c 5c 24 22 5d 20 33 29 29 0a   ┆string-match "^_\\$.*\\$"] 3)) ┆