;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:47:07 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/mlsupport.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/mlsupport.el' was compiled for Emacs 19")) (defalias 'ml-defun '(macro . #[(&rest defs) "\nDD" [ml-defun-1 quote defs] 3])) (defalias 'ml-defun-1 #[(args) "@@@ABMA‡" [args mocklisp nil] 4]) (defalias 'declare-buffer-specific '(macro . #[(&rest vars) " \"B" [progn mapcar #[(var) "\nDD" [make-variable-buffer-local quote var] 3] vars] 4])) (defalias 'ml-set-default #[(varname value) "\n! \"" [set-default intern varname value] 3]) (defalias '>> #[(val count) " \n[\"" [lsh val count] 3]) (defalias 'novalue #[nil "" [nil] 1]) (defalias 'ml-not #[(arg) "U‡" [arg 0 1] 2]) (defalias 'provide-prefix-arg #[(arg form) "@ !" [form arg] 2]) (defalias 'define-keymap #[(name) " ! M" [intern name make-keymap] 2]) (byte-code "M M" [esc-map ctl-x-map] 2) (defalias 'ml-use-local-map #[(name) "\nP!!" [use-local-map intern name "-map"] 4]) (defalias 'ml-use-global-map #[(name) "\nP!!" [use-global-map intern name "-map"] 4]) (defalias 'local-bind-to-key #[(name key) " \n ! \f+\fY%!\fZ!P,\f!,\f !#" [current-local-map use-local-map make-keymap define-key key 128 char-to-string meta-prefix-char intern name] 6]) (defalias 'bind-to-key #[(name key) " \n \n!\n !#" [define-key global-map key char-to-string intern name] 5]) (defalias 'ml-autoload #[(name file) "\n! \"" [autoload intern name file] 3]) (defalias 'ml-define-string-macro #[(name defn) " !\nM" [intern name defn] 2]) (defalias 'push-back-character #[(char) "C" [char unread-command-events] 2]) (defalias 'to-col #[(column) " \"" [indent-to column 0] 3]) (defalias 'is-bound '(macro . #[(&rest syms) " \"B" [and mapcar #[(sym) "\nDD" [boundp quote sym] 3] syms] 4])) (defalias 'declare-global '(macro . #[(&rest syms) " \"B" [progn mapcar #[(sym) " E" [defvar sym nil] 3] syms] 4])) (defalias 'error-occurred '(macro . #[(&rest body) "\f\"BF" [condition-case nil progn append body (nil) (error t)] 6])) (defalias 'return-prefix-argument #[(value) "" [value prefix-arg] 2]) (defalias 'ml-prefix-argument #[nil "<@=Ç" [current-prefix-arg 1 - -1] 2]) (defalias 'ml-print #[(varname) " ! ! J# !\"" [boundp varname message "%s => %s" symbol-name "%s has no value"] 4 nil "vPrint variable: "]) (defalias 'ml-set #[(str val) " !\nL" [intern str val] 2]) (defalias 'ml-message #[(&rest args) "\f\"\"" [message "%s" apply concat args] 5]) (defalias 'kill-to-end-of-line #[nil "l ``T\"`#`Sd\"!" [ml-prefix-argument-loop kill-region search-forward 10 nil t] 7]) (defalias 'set-auto-fill-hook #[(arg) " !" [intern arg auto-fill-function] 2]) (defalias 'auto-execute #[(function pattern) "HU\f!OQ B\nB\n" [pattern 0 42 error "Only patterns starting with * supported in auto-execute" "\\." 1 nil "\\'" function auto-mode-alist] 4]) (defalias 'move-to-comment-column #[nil "j" [comment-column] 1]) (defalias 'erase-region #[nil "` |" [mark] 2]) (defalias 'delete-region-to-buffer #[(bufname) " ` #` |" [copy-to-buffer bufname mark] 4]) (defalias 'copy-region-to-buffer #[(bufname) " ` #" [copy-to-buffer bufname mark] 4]) (defalias 'append-region-to-buffer #[(bufname) " ` #" [append-to-buffer bufname mark] 4]) (defalias 'prepend-region-to-buffer #[(bufname) " ` #" [prepend-to-buffer bufname mark] 4]) (defalias 'delete-next-character #[nil " !" [delete-char ml-prefix-argument] 2]) (defalias 'delete-next-word #[nil "` v`|" [ml-prefix-argument] 2]) (defalias 'delete-previous-word #[nil "` !`|" [backward-word ml-prefix-argument] 3]) (defalias 'delete-previous-character #[nil " !" [delete-backward-char ml-prefix-argument] 2]) (defalias 'forward-character #[nil " u" [ml-prefix-argument] 1]) (defalias 'backward-character #[nil " !" [backward-char ml-prefix-argument] 2]) (defalias 'ml-newline #[nil " !" [newline ml-prefix-argument] 2]) (defalias 'ml-next-line #[nil " !" [next-line ml-prefix-argument] 2]) (defalias 'ml-previous-line #[nil " !" [previous-line ml-prefix-argument] 2]) (defalias 'delete-to-kill-buffer #[nil "` \"" [kill-region mark] 3]) (defalias 'narrow-region #[nil "` }" [mark] 2]) (defalias 'ml-newline-and-indent #[nil "  ! j)" [current-indentation column newline ml-prefix-argument] 2]) (defalias 'newline-and-backup #[nil " !" [open-line ml-prefix-argument] 2]) (defalias 'quote-char #[nil " !" [quoted-insert ml-prefix-argument] 2]) (defalias 'ml-current-column #[nil "iT" [] 1]) (defalias 'ml-current-indent #[nil " T" [current-indentation] 1]) (defalias 'region-around-match #[(&optional n) " ! b" [set-mark n] 2]) (defalias 'region-to-string #[nil "` ^` ]{" [mark] 3]) (defalias 'use-abbrev-table #[(name) " P! ! \" J)" [intern name "-abbrev-table" symbol boundp define-abbrev-table nil] 3]) (defalias 'define-hooked-local-abbrev #[(name exp hook) " \n\f!#" [define-local-abbrev name exp intern hook] 5]) (defalias 'define-hooked-global-abbrev #[(name exp hook) " \n\f!#" [define-global-abbrev name exp intern hook] 5]) (defalias 'case-word-lower #[nil "!" [ml-casify-word downcase-region] 2]) (defalias 'case-word-upper #[nil "!" [ml-casify-word upcase-region] 2]) (defalias 'case-word-capitalize #[nil "!" [ml-casify-word capitalize-region] 2]) (defalias 'ml-casify-word #[(fun) "uv\n` v`\")" [1 -1 fun ml-prefix-argument] 3]) (defalias 'case-region-lower #[nil "` \"" [downcase-region mark] 3]) (defalias 'case-region-upper #[nil "` \"" [upcase-region mark] 3]) (defalias 'case-region-capitalize #[nil "` \"" [capitalize-region mark] 3]) (byte-code "! B‡" [boundp saved-command-line-args nil current-load-list] 2) (defalias 'argc #[nil "  G" [saved-command-line-args command-line-args nil] 1]) (defalias 'argv #[(i) "  8" [saved-command-line-args command-line-args nil i] 2]) (defalias 'invisible-argc #[nil " G" [saved-command-line-args command-line-args] 1]) (defalias 'invisible-argv #[(i) " \n8" [i saved-command-line-args command-line-args] 2]) (defalias 'exit-emacs #[nil "" [nil (exit-recursive-edit) ((error (kill-emacs)))] 3 nil nil]) (defalias 'ml-buffer-size #[nil "deZ" [] 2]) (defalias 'previous-command #[nil "" [last-command] 1]) (defalias 'beginning-of-window #[nil " b" [window-start] 1]) (defalias 'end-of-window #[nil " b Z!" [window-start vertical-motion window-height 2] 3]) (defalias 'ml-search-forward #[(string) " ‰ $" [search-forward string nil ml-prefix-argument] 5]) (defalias 'ml-re-search-forward #[(string) " ‰ $" [re-search-forward string nil ml-prefix-argument] 5]) (defalias 'ml-search-backward #[(string) " ‰ $" [search-backward string nil ml-prefix-argument] 5]) (defalias 'ml-re-search-backward #[(string) " ‰ $" [re-search-backward string nil ml-prefix-argument] 5]) #@93 Mocklisp compatibility variable; 1 means use shell from SHELL env var. 0 means use /bin/sh. (defvar use-users-shell 1 (#$ . 7318)) #@68 Mocklisp compatibility variable; 1 means pass -f when calling csh. (defvar use-csh-option-f 1 (#$ . 7455)) (defalias 'filter-region #[(command) "U\n\n !ƚ` ʉ)\f)͂*P&*" [use-users-shell 0 shell-file-name "/bin/sh" file-name-nondirectory shell "csh" csh call-process-region mark t nil use-csh-option-f "-cf" "-c" "exec " command] 10]) (defalias 'execute-monitor-command #[(command) "U\n\n !ƚ ʉ& &̂'P&*" [use-users-shell 0 shell-file-name "/bin/sh" file-name-nondirectory shell "csh" csh call-process nil t use-csh-option-f "-cf" "-c" "exec " command] 8]) (defalias 'use-syntax-table #[(name) "\nP!J!" [set-syntax-table intern name "-syntax-table"] 4]) (defalias 'line-to-top-of-window #[nil " S!" [recenter ml-prefix-argument] 2]) (defalias 'ml-previous-page #[(&optional arg) " V!\nS\nW)!\nT)" [arg ml-prefix-argument count 0 scroll-down nil scroll-up] 3]) (defalias 'ml-next-page #[nil " [!" [previous-page ml-prefix-argument] 2]) (defalias 'page-next-window #[(&optional arg) " V!\nS\nW)!\nT)" [arg ml-prefix-argument count 0 scroll-other-window nil -] 3]) (defalias 'ml-next-window #[nil " !" [select-window next-window] 2]) (defalias 'ml-previous-window #[nil " !" [select-window previous-window] 2]) (defalias 'scroll-one-line-up #[nil " !" [scroll-up ml-prefix-argument] 2]) (defalias 'scroll-one-line-down #[nil " !" [scroll-down ml-prefix-argument] 2]) (defalias 'split-current-window #[nil " !" [split-window selected-window] 2]) (defalias 'last-key-struck #[nil "" [last-command-char] 1]) (defalias 'execute-mlisp-line #[(string) "\n!!" [eval read string] 3]) (defalias 'move-dot-to-x-y #[(x y) " !b S! S!" [window-start selected-window vertical-motion y move-to-column x] 2]) (defalias 'ml-modify-syntax-entry #[(string) " G O HU\fI HU4 HU0\fI4! HUP HUL\fIP! W H\f\"T WP HUP SH THX\f\"T\\*P+" [5 string 0 2 datastring len i 45 32 123 4 60 error "Two-char comment delimiter: use modify-syntax-entry directly" 3 125 62 modify-syntax-entry lim c] 6]) (defalias 'ml-substr #[(string from to) "G\nW \n \\\fW\f \\\n\f\\O)" [string length from 0 to] 4]) (defalias 'ml-concat #[(&rest args) "  @ ! \nB A\n\"*" [nil this newargs args number-to-string apply concat] 4]) (provide (quote mlsupport))