;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:39:33 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/emulation/mlsupport.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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 "`mlsupport.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'ml-defun '(macro . #[(&rest defs) "\301\302DD\207" [defs ml-defun-1 quote] 3])) (defalias 'ml-defun-1 #[(args) "\205@@\301@ABM\210A\211\204\302\207" [args mocklisp nil] 4]) (defalias 'declare-buffer-specific '(macro . #[(&rest vars) "\301\302\303\"B\207" [vars progn mapcar #[(var) "\301\302DD\207" [var make-variable-buffer-local quote] 3]] 4])) (defalias 'ml-set-default #[(varname value) "\302\303! \"\207" [varname value set-default intern] 3]) (defalias '>> #[(val count) "\302 [\"\207" [val count lsh] 3]) (defalias 'novalue #[nil "\300\207" [nil] 1]) (defalias 'ml-not #[(arg) "\301!\203\302\207\303\207" [arg zerop 1 0] 2]) (defalias 'provide-prefix-arg #[(arg form) "@ !\207" [form arg] 2]) (defalias 'define-keymap #[(name) "\301!\302 M\207" [name intern make-keymap] 2]) (byte-code "\300M\210\301 M\207" [esc-map ctl-x-map] 2) (defalias 'ml-use-local-map #[(name) "\301\302\303P!!\207" [name use-local-map intern "-map"] 4]) (defalias 'ml-use-global-map #[(name) "\301\302\303P!!\207" [name use-global-map intern "-map"] 4]) (defalias 'local-bind-to-key #[(name key) "\303 \204\n\304\305 !\210\306\303 \250\203*\307Y\203$\310 !\310\307Z!P\202+\310!\202+\311\n!#\207" [key meta-prefix-char name current-local-map use-local-map make-keymap define-key 128 char-to-string intern] 6]) (defalias 'bind-to-key #[(name key) "\303 \250\203 \304 !\202 \305\n!#\207" [global-map key name define-key char-to-string intern] 5]) (defalias 'ml-autoload #[(name file) "\302\303! \"\207" [name file autoload intern] 3]) (defalias 'ml-define-string-macro #[(name defn) "\302! M\207" [name defn intern] 2]) (defalias 'push-back-character #[(char) "C\211\207" [char unread-command-events] 2]) (defalias 'to-col #[(column) "\301\302\"\207" [column indent-to 0] 3]) (defalias 'is-bound '(macro . #[(&rest syms) "\301\302\303\"B\207" [syms and mapcar #[(sym) "\301\302DD\207" [sym boundp quote] 3]] 4])) (defalias 'declare-global '(macro . #[(&rest syms) "\301\302\303\"B\207" [syms progn mapcar #[(sym) "\301\302E\207" [sym defvar nil] 3]] 4])) (defalias 'error-occurred '(macro . #[(&rest body) "\301\302\303\304\305\"B\306F\207" [body condition-case nil progn append (nil) (error t)] 6])) (defalias 'return-prefix-argument #[(value) "\211\207" [value prefix-arg] 2]) (defalias 'ml-prefix-argument #[nil "\204\301\207<\203@\207\302=\203\303\207\207" [current-prefix-arg 1 - -1] 2]) (defalias 'ml-print #[(varname) "\301!\203\302\303\304!J#\207\302\305\304!\"\207" [varname boundp message "%s => %s" symbol-name "%s has no value"] 4 nil "vPrint variable: "]) (defalias 'ml-set #[(str val) "\302! L\207" [str val intern] 2]) (defalias 'ml-message #[(&rest args) "\301\302\303\304\"\"\207" [args message "%s" apply concat] 5]) (defalias 'kill-to-end-of-line #[nil "\300l\203 \301``T\"\202\301`\302\303\304\305#\203`S\202d\"!\207" [ml-prefix-argument-loop kill-region search-forward 10 nil t] 7]) (defalias 'set-auto-fill-hook #[(arg) "\302!\211\207" [arg auto-fill-function intern] 2]) (defalias 'auto-execute #[#'pattern "\303H\304U\204\f\305\306!\210\307\310\311O\312Q B\nB\211\207" [pattern function auto-mode-alist 0 42 error "Only patterns starting with * supported in auto-execute" "\\." 1 nil "\\'"] 4]) (defalias 'move-to-comment-column #[nil "j\207" [comment-column] 1]) (defalias 'erase-region #[nil "`\300 |\207" [mark] 2]) (defalias 'delete-region-to-buffer #[(bufname) "\301`\302 #\210`\302 |\207" [bufname copy-to-buffer mark] 4]) (defalias 'copy-region-to-buffer #[(bufname) "\301`\302 #\207" [bufname copy-to-buffer mark] 4]) (defalias 'append-region-to-buffer #[(bufname) "\301`\302 #\207" [bufname append-to-buffer mark] 4]) (defalias 'prepend-region-to-buffer #[(bufname) "\301`\302 #\207" [bufname prepend-to-buffer mark] 4]) (defalias 'delete-next-character #[nil "\300\301 !\207" [delete-char ml-prefix-argument] 2]) (defalias 'delete-next-word #[nil "`\300 v\210`|\207" [ml-prefix-argument] 2]) (defalias 'delete-previous-word #[nil "`\300\301 !\210`|\207" [backward-word ml-prefix-argument] 3]) (defalias 'delete-previous-character #[nil "\300\301 !\207" [delete-backward-char ml-prefix-argument] 2]) (defalias 'forward-character #[nil "\300 u\207" [ml-prefix-argument] 1]) (defalias 'backward-character #[nil "\300\301 !\207" [backward-char ml-prefix-argument] 2]) (defalias 'ml-newline #[nil "\300\301 !\207" [newline ml-prefix-argument] 2]) (defalias 'ml-next-line #[nil "\300\301 !\207" [next-line ml-prefix-argument] 2]) (defalias 'ml-previous-line #[nil "\300\301 !\207" [previous-line ml-prefix-argument] 2]) (defalias 'delete-to-kill-buffer #[nil "\300`\301 \"\207" [kill-region mark] 3]) (defalias 'narrow-region #[nil "`\300 }\207" [mark] 2]) (defalias 'ml-newline-and-indent #[nil "\301 \302\303 !\210j)\207" [column current-indentation newline ml-prefix-argument] 2]) (defalias 'newline-and-backup #[nil "\300\301 !\207" [open-line ml-prefix-argument] 2]) (defalias 'quote-char #[nil "\300\301 !\207" [quoted-insert ml-prefix-argument] 2]) (defalias 'ml-current-column #[nil "iT\207" [] 1]) (defalias 'ml-current-indent #[nil "\300 T\207" [current-indentation] 1]) (defalias 'region-around-match #[(&optional n) "\301\224!\210\225b\207" [n set-mark] 2]) (defalias 'region-to-string #[nil "`\300 ^`\300 ]{\207" [mark] 3]) (defalias 'use-abbrev-table #[(name) "\302\303P!\304 !\204\305 \306\"\210 J)\207" [name symbol intern "-abbrev-table" boundp define-abbrev-table nil] 3]) (defalias 'define-hooked-local-abbrev #[(name exp hook) "\304 \n\305 !$\207" [local-abbrev-table name exp hook define-abbrev intern] 6]) (defalias 'define-hooked-global-abbrev #[(name exp hook) "\304 \n\305 !$\207" [global-abbrev-table name exp hook define-abbrev intern] 6]) (defalias 'case-word-lower #[nil "\300\301!\207" [ml-casify-word downcase-region] 2]) (defalias 'case-word-upper #[nil "\300\301!\207" [ml-casify-word upcase-region] 2]) (defalias 'case-word-capitalize #[nil "\300\301!\207" [ml-casify-word capitalize-region] 2]) (defalias 'ml-casify-word #[(fun) "\212\301u\210\302v\210`\303 v\210`\")\207" [fun 1 -1 ml-prefix-argument] 3]) (defalias 'case-region-lower #[nil "\300`\301 \"\207" [downcase-region mark] 3]) (defalias 'case-region-upper #[nil "\300`\301 \"\207" [upcase-region mark] 3]) (defalias 'case-region-capitalize #[nil "\300`\301 \"\207" [capitalize-region mark] 3]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list saved-command-line-args boundp nil] 2) (defalias 'argc #[nil "\204 \302 G\207" [saved-command-line-args command-line-args nil] 1]) (defalias 'argv #[(i) "\204 \303\n8\207" [saved-command-line-args command-line-args i nil] 2]) (defalias 'invisible-argc #[nil "\206 G\207" [saved-command-line-args command-line-args] 1]) (defalias 'invisible-argv #[(i) " \206\n8\207" [i saved-command-line-args command-line-args] 2]) (defalias 'exit-emacs #[nil "\300\301\302\217\207" [nil (exit-recursive-edit) ((error (kill-emacs)))] 3 nil nil]) (defalias 'ml-buffer-size #[nil "deZ\207" [] 2]) (defalias 'previous-command #[nil "\207" [last-command] 1]) (defalias 'beginning-of-window #[nil "\300 b\207" [window-start] 1]) (defalias 'end-of-window #[nil "\300 b\210\301\302 \303Z!\207" [window-start vertical-motion window-height 2] 3]) (defalias 'ml-search-forward #[(string) "\301\302\211\303 $\207" [string search-forward nil ml-prefix-argument] 5]) (defalias 'ml-re-search-forward #[(string) "\301\302\211\303 $\207" [string re-search-forward nil ml-prefix-argument] 5]) (defalias 'ml-search-backward #[(string) "\301\302\211\303 $\207" [string search-backward nil ml-prefix-argument] 5]) (defalias 'ml-re-search-backward #[(string) "\301\302\211\303 $\207" [string re-search-backward 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 (#$ . 8427)) #@68 Mocklisp compatibility variable; 1 means pass -f when calling csh. (defvar use-csh-option-f 1 (#$ . 8564)) (defalias 'filter-region #[(command) "\306U\204\n \202 \307\310\n!\311\232\312`\313 \n\314\211\315 \203&\f\203&\316\202'\317\320 P&*\207" [use-users-shell shell-file-name shell csh use-csh-option-f command 0 "/bin/sh" file-name-nondirectory "csh" call-process-region mark t nil "-cf" "-c" "exec "] 10]) (defalias 'execute-monitor-command #[(command) "\306U\204\n \202 \307\310\n!\311\232\312\n\313\314\211 \203#\f\203#\315\202$\316\317 P&*\207" [use-users-shell shell-file-name shell csh use-csh-option-f command 0 "/bin/sh" file-name-nondirectory "csh" call-process nil t "-cf" "-c" "exec "] 8]) (defalias 'use-syntax-table #[(name) "\301\302\303P!J!\207" [name set-syntax-table intern "-syntax-table"] 4]) (defalias 'line-to-top-of-window #[nil "\300\301 S!\207" [recenter ml-prefix-argument] 2]) (defalias 'ml-previous-page #[(&optional arg) "\206\302 \211\303V\203\304\305!\210 S\211\202 \303W\205)\306\305!\210 T\211\202)\207" [arg count ml-prefix-argument 0 scroll-down nil scroll-up] 3]) (defalias 'ml-next-page #[nil "\300\301 [!\207" [previous-page ml-prefix-argument] 2]) (defalias 'page-next-window #[(&optional arg) "\206\302 \211\303V\203\304\305!\210 S\211\202 \303W\205)\304\306!\210 T\211\202)\207" [arg count ml-prefix-argument 0 scroll-other-window nil -] 3]) (defalias 'ml-next-window #[nil "\300\301 !\207" [select-window next-window] 2]) (defalias 'ml-previous-window #[nil "\300\301 !\207" [select-window previous-window] 2]) (defalias 'scroll-one-line-up #[nil "\300\301 !\207" [scroll-up ml-prefix-argument] 2]) (defalias 'scroll-one-line-down #[nil "\300\301 !\207" [scroll-down ml-prefix-argument] 2]) (defalias 'split-current-window #[nil "\300\301 !\207" [split-window selected-window] 2]) (defalias 'last-key-struck #[nil "\207" [last-command-char] 1]) (defalias 'execute-mlisp-line #[(string) "\301\302!!\207" [string eval read] 3]) (defalias 'move-dot-to-x-y #[(x y) "\302\303 !b\210\304S!\210\305 S!\207" [y x window-start selected-window vertical-motion move-to-column] 2]) (defalias 'ml-modify-syntax-entry #[(string) "\306G\307\310O\307H\311U\203 \307\312I\210\310H\313U\2033\314H\312U\203/ \307\315I\210\2023\316\317!\210\320H\321U\203O\314H\312U\203K \307\322I\210\202O\316\317!\210 \nW\205\221\323 H \"\210 T\211\nW\203O H\311U\203O SH TH\211\fX\203\211\323 \"\210 T\211\202x \310\\*\202O+\207" [string datastring len i lim c 5 0 2 45 32 123 4 60 error "Two-char comment delimiter: use modify-syntax-entry directly" 3 125 62 modify-syntax-entry] 6]) (defalias 'ml-substr #[(string from to) "G\n\304W\203 \n \\ \304W\203 \\\n\211 \\O)\207" [string length from to 0] 4]) (defalias 'ml-concat #[(&rest args) "\303\211\n\203\n@\211\247\203\304! B\nA\211\204\305\306 \237\"*\207" [this newargs args nil number-to-string apply concat] 4]) (provide 'mlsupport)