;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul 5 23:40:29 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/mlsupport.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")) (byte-code "ﾀﾁﾂ\"安ﾃﾄ\"安ﾅﾆ\"安ﾇﾈ\"安ﾉﾊ\"安ﾋﾌ\"安ﾍﾎ\"安ﾏﾐ\"安ﾑﾒ\"意M慰M安ﾕﾖ\"安ﾗﾘ\"安ﾙﾚ\"安ﾛﾜ\"安ﾝﾞ\"安ﾟ濬"安矮\"安聿\"安褂\"安鉅\"安鳰\"安\"安\"安\"安\"安\"安\"安\"安\"安\"安\"安　\"安、。\"安，．\"安・：\"安；？\"安！゛\"安゜´\"安｀¨\"安＾￣\"安＿ヽ\"安ヾゝ\"安ゞ〃\"安仝々\"安〆〇\"安ー―\\"安‐／\"安＼〜\"安‖｜\"安…‥\"安‘’\"安“”\"安（）\"安〔〕\"安［］\"安｛｝\"安〈〉\"安《》\"安「」\"安『』\"安【】\"安＋−\"安±×\"÷!ﾍ＝ﾀ≠＜\"安＞≦\"安≧∞\"安∴♂\"安♀°\"安′″\"安℃￥\"安＄¢\"安£％\"安＃＆\"安＊＠\"安§☆\"安★○\"" [defalias ml-defun (macro . #[(&rest defs) "ﾀﾁ\nDD" [ml-defun-1 quote defs] 3]) ml-defun-1 #[(args) "@@ﾁ@ABMAﾂ" [args mocklisp nil] 4] declare-buffer-specific (macro . #[(&rest vars) "ﾀﾁﾂ \"B" [progn mapcar #[(var) "ﾀﾁ\nDD" [make-variable-buffer-local quote var] 3] vars] 4]) ml-set-default #[(varname value) "ﾀﾁ\n! \"" [set-default intern varname value] 3] >> #[(val count) "ﾀ \n[\"" [lsh val count] 3] novalue (lambda nil) ml-not #[(arg) "ﾁUﾂﾁ" [arg 0 1] 2] provide-prefix-arg #[(arg form) "@ !" [form arg] 2] define-keymap #[(name) "ﾀ !ﾂ M" [intern name make-keymap] 2] esc-map ctl-x-map ml-use-local-map #[(name) "ﾀﾁ\nﾃP!!" [use-local-map intern name "-map"] 4] ml-use-global-map #[(name) "ﾀﾁ\nﾃP!!" [use-global-map intern name "-map"] 4] local-bind-to-key #[(name key) "ﾀ Ыnﾁﾂ !暗ﾀ ｨ+ ﾅY%ﾆ!ﾆ ﾅZ!P,ﾆ !, ﾈ !#" [current-local-map use-local-map make-keymap define-key key 128 char-to-string meta-prefix-char intern name] 6] bind-to-key #[(name key) "ﾀ \nｨ ﾃ\n!\nﾄ !#" [define-key global-map key char-to-string intern name] 5] ml-autoload #[(name file) "ﾀﾁ\n! \"" [autoload intern name file] 3] ml-define-string-macro #[(name defn) "ﾀ !\nM" [intern name defn] 2] push-back-character #[(char) "C" [char unread-command-events] 2] to-col #[(column) "ﾀ ﾂ\"" [indent-to column 0] 3] is-bound (macro . #[(&rest syms) "ﾀﾁﾂ \"B" [and mapcar #[(sym) "ﾀﾁ\nDD" [boundp quote sym] 3] syms] 4]) declare-global (macro . #[(&rest syms) "ﾀﾁﾂ \"B" [progn mapcar #[(sym) "ﾀ ﾂE" [defvar sym nil] 3] syms] 4]) error-occurred (macro . #[(&rest body) "ﾀﾁﾂﾃ ﾅ\"BﾆF" [condition-case nil progn append body (nil) (error t)] 6]) return-prefix-argument #[(value) "" [value prefix-arg] 2] ml-prefix-argument #[nil "ﾁ<@ﾂ=ﾃ" [current-prefix-arg 1 - -1] 2] ml-print #[(varname) "ﾀ !ﾂﾃﾄ ! J#ﾂﾅﾄ !\"" [boundp varname message "%s => %s" symbol-name "%s has no value"] 4 nil "vPrint variable: "] ml-set #[(str val) "ﾀ !\nL" [intern str val] 2] ml-message #[(&rest args) "ﾀﾁﾂﾃ \"\"" [message "%s" apply concat args] 5] kill-to-end-of-line #[nil "ﾀl ﾁ``T\"ﾁ`ﾂﾃﾄﾅ#`Sd\"!" [ml-prefix-argument-loop kill-region search-forward 10 nil t] 7] set-auto-fill-hook #[(arg) "ﾀ !" [intern arg auto-fill-function] 2] auto-execute #[(function pattern) "ﾁHﾂU ﾃﾄ!闇ﾆﾇOﾈQ B\nB\n" [pattern 0 42 error "Only patterns starting with * supported in auto-execute" "\\." 1 nil "$" function auto-mode-alist] 4] move-to-comment-column #[nil "j" [comment-column] 1] erase-region #[nil "`ﾀ |" [mark] 2] delete-region-to-buffer #[(bufname) "ﾀ `ﾂ #`ﾂ |" [copy-to-buffer bufname mark] 4] copy-region-to-buffer #[(bufname) "ﾀ `ﾂ #" [copy-to-buffer bufname mark] 4] append-region-to-buffer #[(bufname) "ﾀ `ﾂ #" [append-to-buffer bufname mark] 4] prepend-region-to-buffer #[(bufname) "ﾀ `ﾂ #" [prepend-to-buffer bufname mark] 4] delete-next-character #[nil "ﾀﾁ !" [delete-char ml-prefix-argument] 2] delete-next-word #[nil "`ﾀ v`|" [ml-prefix-argument] 2] delete-previous-word #[nil "`ﾀﾁ !`|" [backward-word ml-prefix-argument] 3] delete-previous-character #[nil "ﾀﾁ !" [delete-backward-char ml-prefix-argument] 2] forward-character #[nil "ﾀ u" [ml-prefix-argument] 1] backward-character #[nil "ﾀﾁ !" [backward-char ml-prefix-argument] 2] ml-newline #[nil "ﾀﾁ !" [newline ml-prefix-argument] 2] ml-next-line #[nil "ﾀﾁ !" [next-line ml-prefix-argument] 2] ml-previous-line #[nil "ﾀﾁ !" [previous-line ml-prefix-argument] 2] delete-to-kill-buffer #[nil "ﾀ`ﾁ \"" [kill-region mark] 3] narrow-region #[nil "`ﾀ }" [mark] 2] ml-newline-and-indent #[nil "ﾀ ﾂﾃ ! j)" [current-indentation column newline ml-prefix-argument] 2] newline-and-backup #[nil "ﾀﾁ !" [open-line ml-prefix-argument] 2] quote-char #[nil "ﾀﾁ !" [quoted-insert ml-prefix-argument] 2] ml-current-column #[nil "iT" [] 1] ml-current-indent #[nil "ﾀ T" [current-indentation] 1] region-around-match #[(&optional n) "ﾀ ! 秒" [set-mark n] 2] region-to-string #[nil "`ﾀ ^`ﾀ ]{" [mark] 3] use-abbrev-table #[(name) "ﾀ ﾂP!ﾄ !ﾅ ﾆ\" J)" [intern name "-abbrev-table" symbol boundp define-abbrev-table nil] 3] define-hooked-local-abbrev #[(name exp hook) "ﾀ \nﾃ !#" [define-local-abbrev name exp intern hook] 5] define-hooked-global-abbrev #[(name exp hook) "ﾀ \nﾃ !#" [define-global-abbrev name exp intern hook] 5] case-word-lower #[nil "ﾀﾁ!" [ml-casify-word downcase-region] 2] case-word-upper #[nil "ﾀﾁ!" [ml-casify-word upcase-region] 2] case-word-capitalize #[nil "ﾀﾁ!" [ml-casify-word capitalize-region] 2] ml-casify-word #[(fun) "澗u庵v\n`ﾃ v`\")" [1 -1 fun ml-prefix-argument] 3] case-region-lower #[nil "ﾀ`ﾁ \"" [downcase-region mark] 3] case-region-upper #[nil "ﾀ`ﾁ \"" [upcase-region mark] 3] case-region-capitalize #[nil "ﾀ`ﾁ \"" [capitalize-region mark] 3] boundp saved-command-line-args nil argc #[nil " ﾂ G" [saved-command-line-args command-line-args nil] 1] argv #[(i) " ﾂ 8" [saved-command-line-args command-line-args nil i] 2] invisible-argc #[nil " G" [saved-command-line-args command-line-args] 1] invisible-argv #[(i) " \n8" [i saved-command-line-args command-line-args] 2] exit-emacs #[nil "ﾀﾁﾂ順" [nil (exit-recursive-edit) ((error (kill-emacs)))] 3 nil nil] ml-buffer-size #[nil "deZ" [] 2] previous-command (lambda nil last-command) beginning-of-window #[nil "ﾀ b" [window-start] 1] end-of-window #[nil "ﾀ b庵ﾂ ﾃZ!" [window-start vertical-motion window-height 2] 3] ml-search-forward #[(string) "ﾀ ﾂ嘉 $" [search-forward string nil ml-prefix-argument] 5] ml-re-search-forward #[(string) "ﾀ ﾂ嘉 $" [re-search-forward string nil ml-prefix-argument] 5] ml-search-backward #[(string) "ﾀ ﾂ嘉 $" [search-backward string nil ml-prefix-argument] 5] ml-re-search-backward #[(string) "ﾀ ﾂ嘉 $" [re-search-backward string nil ml-prefix-argument] 5]] 3) (defvar use-users-shell 1 "\ Mocklisp compatibility variable; 1 means use shell from SHELL env var. 0 means use /bin/sh.") (defvar use-csh-option-f 1 "\ Mocklisp compatibility variable; 1 means pass -f when calling csh.") (byte-code "ﾀﾁﾂ\"安ﾃﾄ\"安ﾅﾆ\"安ﾇﾈ\"安ﾉﾊ\"安ﾋﾌ\"安ﾍﾎ\"安ﾏﾐ\"安ﾑﾒ\"安ﾓﾔ\"安ﾕﾖ\"安ﾗﾘ\"安ﾙﾚ\"安ﾛﾜ\"安ﾝﾞ\"安ﾟ濬"安矮\"医!" [defalias filter-region #[(command) "ﾁUЫn\n ﾃﾄ !ﾆﾈ`ﾉ ﾊ架) )ﾍ*ﾎﾏ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] 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] use-syntax-table #[(name) "ﾀﾁ\nﾃP!J!" [set-syntax-table intern name "-syntax-table"] 4] line-to-top-of-window #[nil "ﾀﾁ S!" [recenter ml-prefix-argument] 2] ml-previous-page #[(&optional arg) "ﾁ ﾃVﾄﾅ!\nS\nﾃW)ﾆﾅ!\nT)" [arg ml-prefix-argument count 0 scroll-down nil scroll-up] 3] ml-next-page #[nil "ﾀﾁ [!" [previous-page ml-prefix-argument] 2] page-next-window #[(&optional arg) "ﾁ ﾃVﾄﾅ!\nS\nﾃW)ﾄﾆ!\nT)" [arg ml-prefix-argument count 0 scroll-other-window nil -] 3] ml-next-window #[nil "ﾀﾁ !" [select-window next-window] 2] ml-previous-window #[nil "ﾀﾁ !" [select-window previous-window] 2] scroll-one-line-up #[nil "ﾀﾁ !" [scroll-up ml-prefix-argument] 2] scroll-one-line-down #[nil "ﾀﾁ !" [scroll-down ml-prefix-argument] 2] split-current-window #[nil "ﾀﾁ !" [split-window selected-window] 2] last-key-struck (lambda nil last-command-char) execute-mlisp-line #[(string) "ﾀﾁ\n!!" [eval read string] 3] move-dot-to-x-y #[(x y) "ﾀﾁ !b按 S!案 S!" [window-start selected-window vertical-motion y move-to-column x] 2] ml-modify-syntax-entry #[(string) "ﾀ G ﾂﾃO ﾂHﾇU ﾂﾈI ﾃHﾉU4 ﾊHﾈU0 ﾂﾋI4ﾌﾍ! ﾎHﾏUケ ﾊHﾈUキ ﾂﾐI１ﾌﾍ! W｡ﾑ H \"T Wケ HﾇUケ SH THXﾑ \"Tｂﾃ\\*１+" [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] ml-substr #[(string from to) "G\nﾃW \n \\ ﾃW \\\n \\O)" [string length from 0 to] 4] provide mlsupport] 3)