;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Tue Jul 6 00:22:27 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/vms-patch.el ;;; emacs version 19.15.16. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19")) (defalias 'create-file-buffer #[(filename) "\n!!" [generate-new-buffer file-name-nondirectory filename] 3 "\ Create a suitably named buffer for visiting FILENAME, and return it. FILENAME (sans directory) is used unchanged if that name is free; otherwise a string <2> or <3> or ... is appended to get an unused name."]) (defalias (quote make-legal-file-name) #[(fn) " ! G W H=5/ Ixx YA Xx YM Xx YY Xx =x =x =rVx IT, " [copy-sequence fn nil 0 chr len indx dot 46 95 t 97 122 65 90 48 57 36 45] 5]) (defalias 'make-auto-save-file-name #[nil "!!R !Q!" [buffer-file-name file-name-directory "_$" file-name-nondirectory "$" expand-file-name "_$_" make-legal-file-name buffer-name] 4 "\ 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."]) (defalias 'auto-save-file-name-p #[(filename) "\n\"" [string-match "^_\\$.*\\$" filename] 3 "\ 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."]) (defalias 'vms-suspend-resume-hook #[nil "\"\"\",5! 5 !!5!! +" [vms-system-info "LOGICAL" "EMACS_FILE_NAME" "EMACS_COMMAND_ARGS" "EMACS_FILE_LINE" line args file find-file goto-line string-to-int cd file-name-directory vms-command-line-again] 5 "\ When resuming suspended Emacs, check for file to be found. If the logical name `EMACS_FILE_NAME' is defined, `find-file' that file."]) (byte-code "" [vms-suspend-resume-hook suspend-resume-hook] 1) (defalias 'vms-suspend-hook #[nil "\" !Ň" [vms-system-info "LOGICAL" "DONT_SUSPEND_EMACS" error "Can't suspend this emacs" nil] 3 "\ Don't allow suspending if logical name `DONT_SUSPEND_EMACS' is defined."]) (byte-code "" [vms-suspend-hook suspend-hook] 1) (defalias 'vms-command-line-again #[nil "\"C G   GWD H V5 W; IT GS HUZSI TO GW GW H V WTkT GW H W VT OC\"Te ." [vms-system-info "LOGICAL" "EMACS_COMMAND_ARGS" args "emacs" command-line-args 0 beg end len nil this-char 33 127 32 append command-line] 6 "\ Reprocess command line arguments. VMS specific. Command line arguments are initialized from the logical EMACS_COMMAND_ARGS which is defined by kepteditor.com. On VMS this allows attaching to a spawned Emacs and doing things like \"emacs -l myfile.el -f doit\""]) (byte-code "\"" [defalias vms-read-directory #[(dirname switches buffer) "q R\"eb!u eb)" [buffer subprocess-command-to-buffer "DIRECTORY " switches " " dirname search-forward " \n" -1 delete-horizontal-space] 5] "/SIZE/DATE/OWNER/WIDTH=(FILENAME=32,SIZE=5)" dired-listing-switches (lambda (start end command ign1 ign2 ign3 &rest switches) (write-region start end "sys$login:delete-me.txt") (send-command-to-subprocess 1 (concat command " sys$login:delete-me.txt/name=\"GNUprintbuffer\" " (mapconcat (quote identity) switches " ")) nil nil nil)) print-region-function] 3) (autoload (quote vms-pmail-setup) "vms-pmail" "\ Set up file assuming use by VMS Mail utility. The buffer is put into text-mode, auto-save is turned off and the following bindings are established. \\[vms-pmail-save-and-exit] vms-pmail-save-and-exit \\[vms-pmail-abort] vms-pmail-abort All other Emacs commands are still available." t)