4.4BSD/usr/src/contrib/emacs-18.57/lisp/mlsupport.elc

(provide (quote mlsupport))

(defmacro ml-defun (&rest defs) (byte-code "ÁÂDD‡" [defs ml-defun-1 quote] 3))

(defun ml-defun-1 (args) (byte-code "…@@Á@ABMˆA‰ˆ‚‡" [args mocklisp] 4))

(defmacro declare-buffer-specific (&rest vars) (byte-code "ÂÃÄ	\"B‡" [var vars progn mapcar (lambda (var) (byte-code "ÁÂDD‡" [var make-variable-buffer-local quote] 3))] 4))

(defmacro setq-default (var val) (byte-code "ÂÃD	E‡" [var val set-default quote] 3))

(defun ml-set-default (varname value) (byte-code "ÂÃ!	\"‡" [varname value set-default intern] 4))

(defun >> (val count) (byte-code "Â	[\"‡" [val count lsh] 3))

(defun novalue nil (byte-code "À‡" [nil] 1))

(defun ml-not (arg) (byte-code "Á!ƒ
‚Ç" [arg zerop 1 0] 2))

(defun provide-prefix-arg (arg form) (byte-code "Â@	\"‡" [form arg funcall] 3))

(defun define-keymap (name) (byte-code "Á! M‡" [name intern make-keymap] 4))

(defun ml-use-local-map (name) (byte-code "ÁÂÃP!!‡" [name use-local-map intern "-map"] 4))

(defun ml-use-global-map (name) (byte-code "ÁÂÃP!!‡" [name use-global-map intern "-map"] 4))

(defun local-bind-to-key (name key) (byte-code "à †	ÄÅ !ˆÆà Ç!ƒ+ÈYƒ%É	!ÉÈZ!P‚(É!‚,Ê
!#‡" [key meta-prefix-char name current-local-map use-local-map make-keymap define-key integerp 128 char-to-string intern] 13))

(defun bind-to-key (name key) (byte-code "ÃÄ	!ƒÅ	!‚	Æ
!#‡" [global-map key name define-key integerp char-to-string intern] 7))

(defun ml-autoload (name file) (byte-code "ÂÃ!	\"‡" [name file autoload intern] 4))

(defun ml-define-string-macro (name defn) (byte-code "Â!	M‡" [name defn intern] 3))

(defun push-back-character (char) (byte-code "	‰‡" [unread-command-char char] 2))

(defun to-col (column) (byte-code "ÁÂ\"‡" [column indent-to 0] 3))

(defmacro is-bound (&rest syms) (byte-code "ÂÃÄ	\"B‡" [sym syms and mapcar (lambda (sym) (byte-code "ÁÂDD‡" [sym boundp quote] 3))] 4))

(defmacro declare-global (&rest syms) (byte-code "ÃÄÅ
\"B‡" [sym nil syms progn mapcar (lambda (sym) (byte-code "ÂÁE‡" [sym nil defvar] 3))] 4))

(defmacro error-occurred (&rest body) (byte-code "ÂÀÃÄ	Å\"BÆF‡" [nil body condition-case progn append (nil) (error t)] 6))

(defun return-prefix-argument (value) (byte-code "	‰‡" [prefix-arg value] 2))

(defun ml-prefix-argument nil (byte-code "?ƒ	Á‚<ƒ@‚Â=ƒÂ‡" [current-prefix-arg 1 - -1] 2))

(defun ml-print (varname) (interactive "vPrint variable: ") (byte-code "ÁˆÂ!ƒÃÄÅ!J#‚ÃÆÅ!\"‡" [varname nil boundp message "%s => %s" symbol-name "%s has no value"] 7))

(defun ml-set (str val) (byte-code "Â!	L‡" [str val intern] 3))

(defun ml-message (&rest args) (byte-code "ÁÂÃÄ\"\"‡" [args message "%s" apply concat] 5))

(defun kill-to-end-of-line nil (byte-code "Âlƒ
Ã``T\"‚Ã`ÄÅÀÁ#ƒ`S‚d\"!‡" [nil t ml-prefix-argument-loop kill-region search-forward 10] 8))

(defun set-auto-fill-hook (arg) (byte-code "Â	!‰‡" [auto-fill-hook arg intern] 3))

(defun auto-execute (function pattern) (byte-code "ÃÄHÅ\"ƒÆÇ!‚ȈÉÊÈOËQ
B	B‰‡" [pattern auto-mode-alist function /= 0 42 error "Only patterns starting with * supported in auto-execute" nil "\\." 1 "$"] 6))

(defun move-to-comment-column nil (byte-code "j‡" [comment-column] 1))

(defun erase-region nil (byte-code "À`Á \"‡" [delete-region mark] 4))

(defun delete-region-to-buffer (bufname) (byte-code "Á` #ˆÃ` \"‡" [bufname copy-to-buffer mark delete-region] 6))

(defun copy-region-to-buffer (bufname) (byte-code "Á`Â #‡" [bufname copy-to-buffer mark] 5))

(defun append-region-to-buffer (bufname) (byte-code "Á`Â #‡" [bufname append-to-buffer mark] 5))

(defun prepend-region-to-buffer (bufname) (byte-code "Á`Â #‡" [bufname prepend-to-buffer mark] 5))

(defun delete-next-character nil (byte-code "ÀÁ !‡" [delete-char ml-prefix-argument] 3))

(defun delete-next-word nil (byte-code "À`ÁÂ !ˆ`\"‡" [delete-region forward-word ml-prefix-argument] 5))

(defun delete-previous-word nil (byte-code "À`ÁÂ !ˆ`\"‡" [delete-region backward-word ml-prefix-argument] 5))

(defun delete-previous-character nil (byte-code "ÀÁ !‡" [delete-backward-char ml-prefix-argument] 3))

(defun forward-character nil (byte-code "ÀÁ !‡" [forward-char ml-prefix-argument] 3))

(defun backward-character nil (byte-code "ÀÁ !‡" [backward-char ml-prefix-argument] 3))

(defun ml-newline nil (byte-code "ÀÁ !‡" [newline ml-prefix-argument] 3))

(defun ml-next-line nil (byte-code "ÀÁ !‡" [next-line ml-prefix-argument] 3))

(defun ml-previous-line nil (byte-code "ÀÁ !‡" [previous-line ml-prefix-argument] 3))

(defun delete-to-kill-buffer nil (byte-code "À`Á \"‡" [kill-region mark] 4))

(defun narrow-region nil (byte-code "À`Á \"‡" [narrow-to-region mark] 4))

(defun ml-newline-and-indent nil (byte-code "Á ÂÃ !ˆj)‡" [column current-indentation newline ml-prefix-argument] 4))

(defun newline-and-backup nil (byte-code "ÀÁ !‡" [open-line ml-prefix-argument] 3))

(defun quote-char nil (byte-code "ÀÁ !‡" [quoted-insert ml-prefix-argument] 3))

(defun ml-current-column nil (byte-code "iT‡" [] 1))

(defun ml-current-indent nil (byte-code "À T‡" [current-indentation] 2))

(defun region-around-match (&optional n) (byte-code "ÁÂ!!ˆÃ!b‡" [n set-mark match-beginning match-end] 4))

(defun region-to-string nil (byte-code "À`Á ^`Á ]\"‡" [buffer-substring mark] 6))

(defun use-abbrev-table (name) (byte-code "Ã	ÄP!Å!†ÆÂ\"ˆJ)‡" [symbol name nil intern "-abbrev-table" boundp define-abbrev-table] 5))

(defun define-hooked-local-abbrev (name exp hook) (byte-code "Ã	Ä
!#‡" [name exp hook define-local-abbrev intern] 5))

(defun define-hooked-global-abbrev (name exp hook) (byte-code "Ã	Ä
!#‡" [name exp hook define-global-abbrev intern] 5))

(defun case-word-lower nil (byte-code "ÀÁ!‡" [ml-casify-word downcase-region] 2))

(defun case-word-upper nil (byte-code "ÀÁ!‡" [ml-casify-word upcase-region] 2))

(defun case-word-capitalize nil (byte-code "ÀÁ!‡" [ml-casify-word capitalize-region] 2))

(defun ml-casify-word (fun) (byte-code "ŠÁÂ!ˆÃÄ!ˆÅ`ÃÆ !ˆ`#)‡" [fun forward-char 1 forward-word -1 funcall ml-prefix-argument] 8))

(defun case-region-lower nil (byte-code "À`Á \"‡" [downcase-region mark] 4))

(defun case-region-upper nil (byte-code "À`Á \"‡" [upcase-region mark] 4))

(defun case-region-capitalize nil (byte-code "À`Á \"‡" [capitalize-region mark] 4))

(defvar saved-command-line-args nil)

(defun argc nil (byte-code "†		‰ˆ	G‡" [saved-command-line-args command-line-args nil] 2))

(defun argv (i) (byte-code "†		‰ˆ8‡" [saved-command-line-args command-line-args nil i] 2))

(defun invisible-argc nil (byte-code "†	G‡" [saved-command-line-args command-line-args] 1))

(defun invisible-argv (i) (byte-code "	†
8‡" [i saved-command-line-args command-line-args] 2))

(defun exit-emacs nil (interactive) (byte-code "ÀˆÀÁÂ�‡" [nil (byte-code "À ‡" [exit-recursive-edit] 2) ((error (byte-code "À ‡" [kill-emacs] 2)))] 3))

(defun ml-buffer-size nil (byte-code "deZ‡" [] 2))

(defun previous-command nil (byte-code "‡" [last-command] 1))

(defun beginning-of-window nil (byte-code "À b‡" [window-start] 2))

(defun end-of-window nil (byte-code "À bˆÁ ÃZ!‡" [window-start vertical-motion window-height 2] 5))

(defun ml-search-forward (string) (byte-code "ÂÁÁÃ $‡" [string nil search-forward ml-prefix-argument] 6))

(defun ml-re-search-forward (string) (byte-code "ÂÁÁÃ $‡" [string nil re-search-forward ml-prefix-argument] 6))

(defun ml-search-backward (string) (byte-code "ÂÁÁÃ $‡" [string nil search-backward ml-prefix-argument] 6))

(defun ml-re-search-backward (string) (byte-code "ÂÁÁÃ $‡" [string nil re-search-backward ml-prefix-argument] 6))

(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.")

(defun filter-region (command) (byte-code "È	É\"ƒ
‚ÊËÌ!Í\"Î`Ï ÄÄÅ…\"ƒ)Ђ*ÑÒP&*‡" [shell use-users-shell shell-file-name csh t nil use-csh-option-f command /= 0 "/bin/sh" equal file-name-nondirectory "csh" call-process-region mark "-cf" "-c" "exec "] 14))

(defun execute-monitor-command (command) (byte-code "È	É\"ƒ
‚ÊËÌ!Í\"ÎÄÅÅ…ƒ&Ï‚'ÐÑP&*‡" [shell use-users-shell shell-file-name csh nil t use-csh-option-f command /= 0 "/bin/sh" equal file-name-nondirectory "csh" call-process "-cf" "-c" "exec "] 11))

(defun use-syntax-table (name) (byte-code "ÁÂÃP!J!‡" [name set-syntax-table intern "-syntax-table"] 4))

(defun line-to-top-of-window nil (byte-code "ÀÁ S!‡" [recenter ml-prefix-argument] 3))

(defun ml-previous-page (&optional arg) (byte-code "	†à ÄV…ÅÂ!ˆS‰ˆ‚ˆÄW…,ÆÂ!ˆT‰ˆ‚)‡" [count arg nil ml-prefix-argument 0 scroll-down scroll-up] 6))

(defun ml-next-page nil (byte-code "ÀÁ [!‡" [previous-page ml-prefix-argument] 3))

(defun page-next-window (&optional arg) (byte-code "	†à ÄV…ÅÂ!ˆS‰ˆ‚ˆÄW…,ÅÆ!ˆT‰ˆ‚)‡" [count arg nil ml-prefix-argument 0 scroll-other-window -] 6))

(defun ml-next-window nil (byte-code "ÀÁ !‡" [select-window next-window] 3))

(defun ml-previous-window nil (byte-code "ÀÁ !‡" [select-window previous-window] 3))

(defun scroll-one-line-up nil (byte-code "ÀÁ !‡" [scroll-up ml-prefix-argument] 3))

(defun scroll-one-line-down nil (byte-code "ÀÁ !‡" [scroll-down ml-prefix-argument] 3))

(defun split-current-window nil (byte-code "ÀÁ !‡" [split-window selected-window] 3))

(defun last-key-struck nil (byte-code "‡" [last-command-char] 1))

(defun execute-mlisp-line (string) (byte-code "ÁÂ!!‡" [string eval read] 3))

(defun move-dot-to-x-y (x y) (byte-code "Âà !bˆÄS!ˆÅ	S!‡" [y x window-start selected-window vertical-motion move-to-column] 5))

(defun ml-modify-syntax-entry (string) (byte-code "Æ
G
ÇÈO
ÇHÉUƒÇÊI‚ˈ
ÈHÌUƒ8
ÍHÊUƒ2ÇÎI‚5ÏÐ!‚9ˈ
ÑHÒUƒW
ÍHÊUƒQÇÓI‚TÏÐ!‚Xˈ	W…¥Ô
H\"ˆT‰ˆ	W…v
HÉUƒ 
SH
TH
X…–Ô\"ˆT‰ˆ‚ƒˆÈ\\‰*‚¡Ëˆ‚Y+‡" [i len string datastring c lim 5 0 2 45 32 nil 123 4 60 error "Two-char comment delimiter: use modify-syntax-entry directly" 3 125 62 modify-syntax-entry] 8))

(defun ml-substr (string from to) (byte-code "	G
ÄWƒ
\\‰‚ňÄWƒ!\\‰‚\"ň	

\\O)‡" [length string from to 0 nil] 4))