;;; compiled by jimb@wookumz.gnu.ai.mit.edu on Tue May 18 19:58:36 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/vms-patch.el ;;; emacs version 19.6.4. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (defalias 'create-file-buffer #[(filename) " !!!" [generate-new-buffer downcase file-name-nondirectory filename] 4 "\ 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."]) (fset (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\n  GWF H V7 W= IT GS HU\\SK TO GW GW H V WTmT GW  H W V T   OC\" Tg ." [downcase 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 "M" [vms-read-directory #[(dirname switches buffer) "q R\"eb! ! eb)" [buffer subprocess-command-to-buffer "DIRECTORY " switches " " dirname search-forward " \n" forward-char -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] 2) (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)