DataMuseum.dk

top - metrics - download

    Length: 1946 (0x79a)
    Names: »vms-patch.elc«

└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
    └─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z« 
        └─⟦fa971747f⟧ 
            └─⟦this⟧ »dist-18.55/lisp/vms-patch.elc« 

Hex Dump

0x000…020 0a 28 64 65 66 75 6e 20 63 72 65 61 74 65 2d 66 69 6c 65 2d 62 75 66 66 65 72 20 28 66 69 6c 65   ┆ (defun create-file-buffer (file┆
0x020…040 6e 61 6d 65 29 20 22 5c 0a 43 72 65 61 74 65 20 61 20 73 75 69 74 61 62 6c 79 20 6e 61 6d 65 64   ┆name) "\ Create a suitably named┆
0x040…060 20 62 75 66 66 65 72 20 66 6f 72 20 76 69 73 69 74 69 6e 67 20 46 49 4c 45 4e 41 4d 45 2c 20 61   ┆ buffer for visiting FILENAME, a┆
0x060…080 6e 64 20 72 65 74 75 72 6e 20 69 74 2e 0a 46 49 4c 45 4e 41 4d 45 20 28 73 61 6e 73 20 64 69 72   ┆nd return it. FILENAME (sans dir┆
0x080…0a0 65 63 74 6f 72 79 29 20 69 73 20 75 73 65 64 20 75 6e 63 68 61 6e 67 65 64 20 69 66 20 74 68 61   ┆ectory) is used unchanged if tha┆
0x0a0…0c0 74 20 6e 61 6d 65 20 69 73 20 66 72 65 65 3b 0a 6f 74 68 65 72 77 69 73 65 20 61 20 73 74 72 69   ┆t name is free; otherwise a stri┆
0x0c0…0e0 6e 67 20 3c 32 3e 20 6f 72 20 3c 33 3e 20 6f 72 20 2e 2e 2e 20 69 73 20 61 70 70 65 6e 64 65 64   ┆ng <2> or <3> or ... is appended┆
0x0e0…100 20 74 6f 20 67 65 74 20 61 6e 20 75 6e 75 73 65 64 20 6e 61 6d 65 2e 22 20 28 62 79 74 65 2d 63   ┆ to get an unused name." (byte-c┆
0x100…120 6f 64 65 20 22 c1 c2 c3 08 21 21 21 87 22 20 5b 66 69 6c 65 6e 61 6d 65 20 67 65 6e 65 72 61 74   ┆ode "    !!! " [filename generat┆
0x120…140 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 64 6f 77 6e 63 61 73 65 20 66 69 6c 65 2d 6e 61 6d 65 2d   ┆e-new-buffer downcase file-name-┆
0x140…160 6e 6f 6e 64 69 72 65 63 74 6f 72 79 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 6c   ┆nondirectory] 4))  (defun make-l┆
0x160…180 65 67 61 6c 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 66 6e 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22   ┆egal-file-name (fn) (byte-code "┆
0x180…1a0 c7 08 21 89 10 88 c2 c8 08 47 c2 1d 1c 1b 19 0b 0c 57 85 7c 00 08 0b 48 89 15 88 0d c9 3d 83 32   ┆  !      G       W |   H     = 2┆
0x1a0…1c0 00 09 83 2c 00 08 0b ca 49 82 2f 00 c6 89 11 82 73 00 0d cb 59 85 3b 00 0d cc 58 86 6b 00 0d cd   ┆   ,    I /     s   Y ;   X k   ┆
0x1c0…1e0 59 85 47 00 0d ce 58 86 6b 00 0d cf 59 85 53 00 0d d0 58 86 6b 00 0d d1 3d 86 6b 00 0d ca 3d 86   ┆Y G   X k   Y S   X k   = k   = ┆
0x1e0…200 6b 00 0d d2 3d 85 6b 00 0b c8 56 3f 85 73 00 08 0b ca 49 88 0b 54 89 13 88 82 0f 00 2c 88 08 87   ┆k   = k   V? s    I  T      ,   ┆
0x200…220 22 20 5b 66 6e 20 64 6f 74 20 6e 69 6c 20 69 6e 64 78 20 6c 65 6e 20 63 68 72 20 74 20 63 6f 70   ┆" [fn dot nil indx len chr t cop┆
0x220…240 79 2d 73 65 71 75 65 6e 63 65 20 30 20 34 36 20 39 35 20 39 37 20 31 32 32 20 36 35 20 39 30 20   ┆y-sequence 0 46 95 97 122 65 90 ┆
0x240…260 34 38 20 35 37 20 33 36 20 34 35 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 61 75   ┆48 57 36 45] 5))  (defun make-au┆
0x260…280 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 52 65 74 75 72 6e 20   ┆to-save-file-name nil "\ Return ┆
0x280…2a0 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 2d 73 61 76 65 73 20   ┆file name to use for auto-saves ┆
0x2a0…2c0 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 6f 74 20 63 6f 6e 73   ┆of current buffer. Does not cons┆
0x2c0…2e0 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 6c 65 2d 6e 61 6d 65   ┆ider auto-save-visited-file-name┆
0x2e0…300 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 63 61 6c 6c 69 6e 67   ┆; that is checked before calling┆
0x300…320 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 2e 0a 54 68 69 73 20 69 73 20 61 20 73 65 70 61 72 61   ┆ this function. This is a separa┆
0x320…340 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 ┆
0x340…360 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.┆
0x360…380 0a 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   ┆ See also auto-save-file-name-p.┆
0x380…3a0 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 83 10 00 c1 08 21 c2 c3 08 21 c4 52 82 19 00 c5 c6   ┆" (byte-code "      !   ! R     ┆
0x3a0…3c0 c7 c8 20 21 c4 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   ┆   ! Q! " [buffer-file-name file┆
0x3c0…3e0 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 22 5f 24 22 20 66 69 6c 65 2d 6e 61 6d 65 2d 6e   ┆-name-directory "_$" file-name-n┆
0x3e0…400 6f 6e 64 69 72 65 63 74 6f 72 79 20 22 24 22 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65   ┆ondirectory "$" expand-file-name┆
0x400…420 20 22 5f 24 5f 22 20 6d 61 6b 65 2d 6c 65 67 61 6c 2d 66 69 6c 65 2d 6e 61 6d 65 20 62 75 66 66   ┆ "_$_" make-legal-file-name buff┆
0x420…440 65 72 2d 6e 61 6d 65 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 61 75 74 6f 2d 73 61 76 65 2d 66   ┆er-name] 8))  (defun auto-save-f┆
0x440…460 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 6e 20   ┆ile-name-p (filename) "\ Return ┆
0x460…480 74 20 69 66 20 46 49 4c 45 4e 41 4d 45 20 63 61 6e 20 62 65 20 79 69 65 6c 64 65 64 20 62 79 20   ┆t if FILENAME can be yielded by ┆
0x480…4a0 6d 61 6b 65 2d 61 75 74 6f 2d 73 61 76 65 2d 66 69 6c 65 2d 6e 61 6d 65 2e 0a 46 49 4c 45 4e 41   ┆make-auto-save-file-name. FILENA┆
0x4a0…4c0 4d 45 20 73 68 6f 75 6c 64 20 6c 61 63 6b 20 73 6c 61 73 68 65 73 2e 0a 54 68 69 73 20 69 73 20   ┆ME should lack slashes. This is ┆
0x4c0…4e0 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 75 72 20 2e 65 6d 61   ┆a separate function so your .ema┆
0x4e0…500 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 61 6e 20 72 65 64 65   ┆cs file or site-init.el can rede┆
0x500…520 66 69 6e 65 20 69 74 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   ┆fine it." (byte-code "   \" " [f┆
0x520…540 69 6c 65 6e 61 6d 65 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 5f 5c 5c 24 2e 2a 5c 5c 24   ┆ilename string-match "^_\\$.*\\$┆
0x540…560 22 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 76 6d 73 2d 73 75 73 70 65 6e 64 2d 72 65 73 75 6d   ┆"] 3))  (defun vms-suspend-resum┆
0x560…580 65 2d 68 6f 6f 6b 20 6e 69 6c 20 22 5c 0a 57 68 65 6e 20 72 65 73 75 6d 69 6e 67 20 73 75 73 70   ┆e-hook nil "\ When resuming susp┆
0x580…5a0 65 6e 64 65 64 20 45 6d 61 63 73 2c 20 63 68 65 63 6b 20 66 6f 72 20 66 69 6c 65 20 74 6f 20 62   ┆ended Emacs, check for file to b┆
0x5a0…5c0 65 20 66 6f 75 6e 64 2e 0a 49 66 20 74 68 65 20 6c 6f 67 69 63 61 6c 20 6e 61 6d 65 20 60 45 4d   ┆e found. If the logical name `EM┆
0x5c0…5e0 41 43 53 5f 46 49 4c 45 5f 4e 41 4d 45 27 20 69 73 20 64 65 66 69 6e 65 64 2c 20 60 66 69 6e 64   ┆ACS_FILE_NAME' is defined, `find┆
0x5e0…600 2d 66 69 6c 65 27 20 74 68 61 74 20 66 69 6c 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1   ┆-file' that file." (byte-code " ┆
0x600…620 c2 c3 5c 22 18 08 85 0c 00 c4 08 21 29 87 22 20 5b 66 69 6c 65 20 76 6d 73 2d 73 79 73 74 65 6d   ┆  \"       !) " [file vms-system┆
0x620…640 2d 69 6e 66 6f 20 22 4c 4f 47 49 43 41 4c 22 20 22 45 4d 41 43 53 5f 46 49 4c 45 5f 4e 41 4d 45   ┆-info "LOGICAL" "EMACS_FILE_NAME┆
0x640…660 22 20 66 69 6e 64 2d 66 69 6c 65 5d 20 33 29 29 0a 0a 28 73 65 74 71 20 73 75 73 70 65 6e 64 2d   ┆" find-file] 3))  (setq suspend-┆
0x660…680 72 65 73 75 6d 65 2d 68 6f 6f 6b 20 28 71 75 6f 74 65 20 76 6d 73 2d 73 75 73 70 65 6e 64 2d 72   ┆resume-hook (quote vms-suspend-r┆
0x680…6a0 65 73 75 6d 65 2d 68 6f 6f 6b 29 29 0a 0a 28 64 65 66 75 6e 20 76 6d 73 2d 73 75 73 70 65 6e 64   ┆esume-hook))  (defun vms-suspend┆
0x6a0…6c0 2d 68 6f 6f 6b 20 6e 69 6c 20 22 5c 0a 44 6f 6e 27 74 20 61 6c 6c 6f 77 20 73 75 73 70 65 6e 64   ┆-hook nil "\ Don't allow suspend┆
0x6c0…6e0 69 6e 67 20 69 66 20 6c 6f 67 69 63 61 6c 20 6e 61 6d 65 20 60 44 4f 4e 54 5f 53 55 53 50 45 4e   ┆ing if logical name `DONT_SUSPEN┆
0x6e0…700 44 5f 45 4d 41 43 53 27 20 69 73 20 64 65 66 69 6e 65 64 2e 22 20 28 62 79 74 65 2d 63 6f 64 65   ┆D_EMACS' is defined." (byte-code┆
0x700…720 20 22 c1 c2 c3 5c 22 85 0a 00 c4 c5 21 88 c0 87 22 20 5b 6e 69 6c 20 76 6d 73 2d 73 79 73 74 65   ┆ "   \"     !   " [nil vms-syste┆
0x720…740 6d 2d 69 6e 66 6f 20 22 4c 4f 47 49 43 41 4c 22 20 22 44 4f 4e 54 5f 53 55 53 50 45 4e 44 5f 45   ┆m-info "LOGICAL" "DONT_SUSPEND_E┆
0x740…760 4d 41 43 53 22 20 65 72 72 6f 72 20 22 43 61 6e 27 74 20 73 75 73 70 65 6e 64 20 74 68 69 73 20   ┆MACS" error "Can't suspend this ┆
0x760…780 65 6d 61 63 73 22 5d 20 33 29 29 0a 0a 28 73 65 74 71 20 73 75 73 70 65 6e 64 2d 68 6f 6f 6b 20   ┆emacs"] 3))  (setq suspend-hook ┆
0x780…79a 28 71 75 6f 74 65 20 76 6d 73 2d 73 75 73 70 65 6e 64 2d 68 6f 6f 6b 29 29 0a   ┆(quote vms-suspend-hook)) ┆