;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:21:15 2007 ;;; from file /home/cyd/emacs/lisp/vms-patch.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`vms-patch.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301B\302\207" [auto-mode-alist (("\\.com\\'" . dcl-mode)) nil] 2) #@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) "\301\302!\227!\207" [filename generate-new-buffer file-name-nondirectory] 3 (#$ . 647)]) (defalias 'make-legal-file-name #[(fn) "\305!\306\307G\306 \nW\203v H\211\310=\203.\f\203) \311I\210\202o\312\202o \313Y\203: \314X\204o \315Y\203F \316X\204o \317Y\203R \320X\204o \321=\204o \311=\204o \322=\203j \307V\204o \311I\210 T\211\202,\207" [fn chr len indx dot copy-sequence nil 0 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 "\203\301!\302\303!\304R\207\305\306\307\310 !\304Q!\207" [buffer-file-name file-name-directory "_$" file-name-nondirectory "$" expand-file-name "_$_" make-legal-file-name buffer-name] 4 (#$ . 1356)]) #@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) "\301\302\"\207" [filename string-match "^_\\$.*\\$"] 3 (#$ . 1926)]) #@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 "\303\304\305\"\303\304\306\"\303\304\307\" \204'\n\205/\310\n!\210\205/\311\312!!\202/\313\314\n!!\210\315 +\207" [line args file vms-system-info "LOGICAL" "EMACS_FILE_NAME" "EMACS_COMMAND_ARGS" "EMACS_FILE_LINE" find-file goto-line string-to-number cd file-name-directory vms-command-line-again] 5 (#$ . 2248)]) (byte-code "\301\211\207" [suspend-resume-hook vms-suspend-resume-hook] 2) #@73 Don't allow suspending if logical name `DONT_SUSPEND_EMACS' is defined. (defalias 'vms-suspend-hook #[nil "\300\301\302\"\203 \303\304!\210\305\207" [vms-system-info "LOGICAL" "DONT_SUSPEND_EMACS" error "Can't suspend this emacs" nil] 3 (#$ . 2826)]) (byte-code "\301\211\207" [suspend-hook vms-suspend-hook] 2) #@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 "\306\307\310\"\227\311C\312\211G\313\205\253\nGW\2039\314\nH\211V\204-\315 W\2032\n\316I\210\nT\211\202GS\nH\316U\203K\nS\202=\312\nTO\312\211GW\203\251\nGW\203x\314\nH\211V\204q\315 W\203x\nT\211\204Z\nT\211GW\203\231\316 H\211W\203\231\315 V\203\231 T\211\202|\317 \n OC\" T\211\202T\320 .\207" [args command-line-args beg end len this-char vms-system-info "LOGICAL" "EMACS_COMMAND_ARGS" "emacs" 0 nil 33 127 32 append command-line] 6 (#$ . 3147)]) (defalias 'vms-read-directory #[(dirname switches buffer) "\212q\210\303\304 \305\nR\"\210eb\210\306\307!\203\310u\210\311 \210\202eb)\207" [buffer switches dirname subprocess-command-to-buffer "DIRECTORY " " " search-forward " \n" -1 delete-horizontal-space] 5]) (byte-code "\302\303\304\207" [dired-listing-switches print-region-function "/SIZE/DATE/OWNER/WIDTH=(FILENAME=32,SIZE=5)" #[(start end command ign1 ign2 ign3 &rest switches) "\304 \305#\210\306\307\n\310\311\312 \313#Q\314\211\211%\207" [start end command switches write-region "sys$login:delete-me.txt" send-command-to-subprocess 1 " sys$login:delete-me.txt/name=\"GNUprintbuffer\" " mapconcat identity " " nil] 8] 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 'vms-pmail-setup "vms-pmail" '(#$ . 4655) t) #@569 Insert a right square brace, but do other things first depending on context. During filename completion, when point is at the end of the line and the character before is not a right square brace, do one of three things before inserting the brace: - If there are already two left square braces preceding, do nothing special. - If there is a previous right-square-brace, convert it to dot. - If the character before is dot, delete it. Additionally, if the preceding chars are right-square-brace followed by either "-" or "..", strip one level of directory hierarchy. (defalias 'vms-magic-right-square-brace #[nil "\203\241`dU\203\241`Sf\306U\204\241\307\310\311 \312\313$\204>\307\314\311 \312#\2032\315\316!\210\317c\210db\210\202>`Sf\320U\203>\315\321!\210db\210\322d\211\203\240\n@\211G`\fZ\fT W\203\230 Sf\320U\203\230 `{\230\203\230\315\fT[!\210`Sf\211\320U\206\323U)\204\212\315\321!\210\202p`Sf\320U\203\226\315\321!\210\324+\nA\211\204I*\314c\207" [minibuffer-completing-file-name pmax specs up len cut 93 search-backward "[" field-beginning t 2 "]" delete-char 1 "." 46 -1 (".." "-") 91 nil c] 6 (#$ . 4999) nil]) #@337 Insert a colon, but do other things first depending on context. During filename completion, when point is at the end of the line and the line contains a right square brace, remove all characters from the beginning of the line up to and including such brace. This enables one to type a new filespec without having to delete the old one. (defalias 'vms-magic-colon #[nil "\203`dU\203\301\302\303 \304#\203\303 `T|\210db\210\305c\207" [minibuffer-completing-file-name search-backward "]" field-beginning t ":"] 4 (#$ . 6160) nil]) (byte-code "\302 \303\304#\210\302 \305\304#\210\302 \306\307#\210)\302\207" [minibuffer-local-completion-map m define-key "]" vms-magic-right-square-brace "/" ":" vms-magic-colon] 4)