;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:57:21 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/vms-patch.el ;;; emacs version 19.28.90.26. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/vms-patch.el' was compiled for Emacs 19")) #@208 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 'create-file-buffer #[(filename) "\n!!" [generate-new-buffer file-name-nondirectory filename] 3 (#$ . 488)]) (defalias 'make-legal-file-name #[(fn) " ! G W H=5/ Ixx\fYA\fXx\fYM\fXx\fYY\fXx\f=x\f=x\f=rVx IT, " [copy-sequence fn nil 0 chr len indx dot 46 95 t 97 122 65 90 48 57 36 45] 5]) #@316 Return file name to use for auto-saves of current buffer. This function does not consider `auto-save-visited-file-name'; the caller should check that before calling this function. This is a separate function so that your `.emacs' file or the site's `site-init.el' can redefine it. See also `auto-save-file-name-p'. (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 (#$ . 1087)]) #@199 Return t if FILENAME can be yielded by `make-auto-save-file-name'. FILENAME should lack slashes. This is a separate function so that your `.emacs' file or the site's `site-init.el' can redefine it. (defalias 'auto-save-file-name-p #[(filename) "\n\"" [string-match "^_\\$.*\\$" filename] 3 (#$ . 1621)]) #@133 When resuming suspended Emacs, check for file to be found. If the logical name `EMACS_FILE_NAME' is defined, `find-file' that file. (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 (#$ . 1935)]) (byte-code "" [vms-suspend-resume-hook suspend-resume-hook] 1) #@73 Don't allow suspending if logical name `DONT_SUSPEND_EMACS' is defined. (defalias 'vms-suspend-hook #[nil "\" !Ň" [vms-system-info "LOGICAL" "DONT_SUSPEND_EMACS" error "Can't suspend this emacs" nil] 3 (#$ . 2438)]) (byte-code "" [vms-suspend-hook suspend-hook] 1) #@261 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" (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 (#$ . 2723)]) (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]) (byte-code "ć" ["/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 nil] 1) #@283 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. (autoload (quote vms-pmail-setup) "vms-pmail" '(#$ . 4002) t)