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
Index: ┃ T v ┃

⟦3d155ec57⟧ TextFile

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

Derivation

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

TextFile


(defun make-auto-save-file-name nil "\
Return file name to use for auto-saves of current buffer.
Does not consider auto-save-visited-file-name; that is checked
before calling this function.
This is a separate function so your .emacs file or site-init.el can redefine it.
See also auto-save-file-name-p." (byte-code "▶08◀▶83◀▶10◀▶00◀▶c1◀▶08◀!▶c2◀▶c3◀▶08◀!▶c4◀R▶82◀▶17◀▶00◀▶c5◀▶c6◀▶c7◀ ▶c4◀Q!▶87◀" [buffer-file-name file-name-directory "_$" file-name-nondirectory "$" expand-file-name "_$_" buffer-name] 7))

(defun auto-save-file-name-p (filename) "\
Return t if FILENAME can be yielded by make-auto-save-file-name.
FILENAME should lack slashes.
This is a separate function so your .emacs file or site-init.el can redefine it." (byte-code "▶c1◀▶c2◀▶08◀\"▶87◀" [filename string-match "^_\\$.*\\$"] 3))