;ELC ;;; compiled by cthomp@willow on Wed Aug 25 18:01:40 1993 ;;; from file /era/era-working/editor/lisp/emulators/mlsupport.el ;;; emacs version 19.8 (beta8) Lucid. ;;; bytecomp version 2.16; 8-aug-93. ;;; 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 "!!MMMMMMMMMMMMMMMMMMMMMMMMMMMMMM@AMBCMDEMFGMHIMJKMLMMNOMPQMRSMTUMVWMXYMZ[M\\]M^_M`aMbcMdeMfgMhiMjkMlmMnoMpqMrsMtuMvwMxyMz{M|}M~M!MMMMMMMMMM" [fboundp ml-prefix-argument-loop error "emacs was not compiled with #define MOCKLISP_SUPPORT in config.h" ml-defun (macro . #[(&rest defs) "\nDD" [ml-defun-1 quote defs] 3]) ml-defun-1 #[(args) "@@@ABMAp‡" [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] ml-use-local-map #[(name) "\nP!!" [use-local-map intern name "-map"] 4] ml-use-global-map #[(name) "\nP!!" [use-global-map intern name "-map"] 4] local-bind-to-key #[(name key) " ! 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) " !" [character-to-event char unread-command-event] 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) " \"BF" [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) "HU!OQ 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) " ! b" [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) " ! !$" [define-abbrev local-abbrev-table error "Major mode has no abbrev table" name exp intern hook] 6] define-hooked-global-abbrev #[(name exp hook) " \n !$" [define-abbrev global-abbrev-table name exp intern hook] 6] 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) "uv\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]] 2) (byte-code "MMM" [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]] 2) (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 "MMMMMMMMMMMMMMMMM" [filter-region #[(command) "U\n !ƚ` ʉ ͪP&*" [use-users-shell 0 shell-file-name "/bin/sh" shell file-name-nondirectory "csh" csh call-process-region mark t nil use-csh-option-f "-cf" "-c" "exec " command] 10] execute-monitor-command #[(command) "U\n !ƚ ʉ ̪P&*" [use-users-shell 0 shell-file-name "/bin/sh" shell file-name-nondirectory "csh" csh call-process nil t use-csh-option-f "-cf" "-c" "exec " command] 8] use-syntax-table #[(name) "\nP!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!\nSr\nW!\nTr)" [arg ml-prefix-argument count 0 scroll-down nil scroll-up] 3] ml-next-page #[nil " [!" [ml-previous-page ml-prefix-argument] 2] page-next-window #[(&optional arg) " V!\nSr\nW!\nTr)" [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 HU I HU HU I! HU HU I! W H \"T Wh HU` SH THX \"Tm\\*5+" [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\nW\n \\ W \\\n \\O)" [string length from 0 to] 4]] 2) (fset 'ml-nargs #[nil "=‡G" [mocklisp-arguments interactive 0] 2 "\ Number of arguments to currently executing mocklisp function."]) (fset 'ml-arg #[(n prompt) "= ! S" [mocklisp-arguments interactive read-from-minibuffer prompt n] 2 "\ Argument number N to currently executing mocklisp function."]) (fset 'ml-interactive #[nil "=" [mocklisp-arguments interactive] 2 "\ True if currently executing mocklisp function was called interactively."]) (byte-code "\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"@A\"BC\"DE!" [make-obsolete read-no-blanks-input read-string declare-buffer-specific make-variable-buffer-local >> lsh novalue ignore define-keymap "use (fset 'symbol (make-keymap))" local-bind-to-key local-set-key bind-to-key global-set-key to-col indent-to is-bound boundp declare-global defvar error-occurred condition-case set-auto-fill-hook "set variable auto-fill-function instead" auto-execute "set variable auto-mode-alist instead" move-to-comment-column "use (indent-to comment-column)" erase-region delete-region delete-region-to-buffer "use copy-to-buffer and delete-region" copy-region-to-buffer copy-to-buffer append-region-to-buffer append-to-buffer prepend-region-to-buffer prepend-to-buffer delete-next-character delete-char forward-character forward-char backward-character backward-char delete-to-kill-buffer kill-region narrow-region narrow-to-region newline-and-backup open-line quote-char quoted-insert region-to-string buffer-substring define-hooked-local-abbrev define-abbrev define-hooked-global-abbrev filter-region call-process-region execute-monitor-command call-process use-syntax-table set-syntax-table line-to-top-of-window recenter insert-string insert provide mlsupport] 3)