;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:39:32 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/emulation/mlconvert.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 "`mlconvert.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@70 Convert buffer of Mocklisp code to real Lisp that GNU Emacs can run. (defalias 'convert-mocklisp-buffer #[nil "\300 \210\301\302\303 !!\210\304\305\306\"\210\307\310!\210eb\210\311 \210eb\210\312\313\314\217\210eb\210\315c\210\316c\210\317 \210eb\210\307\320!\207" [emacs-lisp-mode set-syntax-table copy-sequence syntax-table modify-syntax-entry 124 "w" message "Converting mocklisp (ugh!)..." fix-mlisp-syntax ignore (byte-code "`\302p!<\203!@\303=\204!\304c\210\212 b\210\305\306w\210\307c\210)*\202" [form opt read defun "))\n\n(ml-foo)\n\n" "\n" nil "(defun (ml-foo \n "] 3) ((end-of-file)) ";;; GNU Emacs code converted from Mocklisp\n" "(require 'mlsupport)\n\n" fix-mlisp-symbols "Converting mocklisp...done"] 3 (#$ . 630) nil]) (defalias 'fix-mlisp-syntax #[nil "\300\301\302\303#\205Dh\304U\203\305u\210\306\307!\210\202\310\305!\210\311c\210g\312U\204+g\313U\2031\307u\210\202:\314\315!\203:\312c\210\307u\210\310\307!\210\202\207" [re-search-forward "['\"]" nil t 34 -1 forward-sexp 1 delete-char "?" 92 94 looking-at "[^a-zA-Z]"] 4]) (defalias 'fix-mlisp-symbols #[nil "\302\303w\210m?\205Wg\304U\204g\305U\203\306\307!\210\202g\310U\203(\307y\210\202`\303\306\307!\210\311 `{!\312N\211\203S;\203K `|\210c\210\202S\212 b\210 \210)*\202\207" [prop start " \n()" nil 63 34 forward-sexp 1 59 intern-soft mocklisp] 4]) (defalias 'ml-expansion #[(ml-name lisp-string) "\302\303 #\207" [ml-name lisp-string put mocklisp] 4]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\210\300\315\316\"\210\300\317\320\"\210\300\321\322\"\210\300\323\324\"\210\300\325\326\"\210\300\327\330\"\210\300\331\332\"\210\300\333\334\"\210\300\335\336\"\210\300\337\340\"\210\300\341\342\"\210\300\343\344\"\210\300\345\346\"\210\300\347\350\"\210\300\351\352\"\210\300\353\354\"\210\300\355\356\"\210\300\357\360\"\210\300\361\362\"\210\300\363\364\"\210\300\365\366\"\210\300\367\370\"\210\300\371\372\"\210\300\373\374\"\210\300\375\376\"\210\300\377\201@\"\210\300\201A\201B\"\210\300\201C\201D\"\210\300\201E\201F\"\210\300\201G\201H\"\210\300\201I\201J\"\210\300\201K\201L\"\210\300\201M\201N\"\210\300\201O\201P\"\210\300\201Q\201R\"\210\300\201S\201T\"\210\300\201U\201V\"\210\300\201W\201X\"\210\300\201Y\201Z\"\210\300\201[\201\\\"\210\300\201]\201^\"\210\300\201_\201`\"\210\300\201a\201b\"\210\300\201c\201d\"\210\300\201e\201f\"\210\300\201g\201h\"\210\300\201i\201j\"\210\300\201k\201l\"\210\300\201m\201n\"\210\300\201o\201p\"\210\300\201q\201r\"\210\300\201s\201t\"\210\300\201u\201v\"\210\300\201w\201x\"\210\300\201y\201z\"\210\300\201{\201|\"\210\300\201}\201~\"\210\300\201\201\200\"\210\300\201\201\201\202\"\210\300\201\203\201\204\"\210\300\201\205\201\206\"\210\300\201\207\201\206\"\210\300\201\210\201\211\"\210\300\201\212\201\213\"\210\300\201\214\201\215\"\210\300\201\216\201\217\"\210\300\201\220\201\221\"\210\300\201\222\201\223\"\210\300\201\224\201\225\"\210\300\201\226\201\227\"\210\300\201\230\201\231\"\210\300\201\232\201\233\"\210\300\201\234\201\235\"\210\300\201\236\201\237\"\210\300\201\240\201\241\"\210\300\201\242\201\243\"\210\300\201\244\201\245\"\210\300\201\246\201\247\"\210\300\201\250\201\251\"\210\300\201\252\201\253\"\210\300\201\254\201\255\"\210\300\201\256\201\257\"\210\300\201\260\201\261\"\210\300\201\262\201\263\"\210\300\201\264\201\265\"\210\300\201\266\201\267\"\210\300\201\270\201\271\"\210\300\201\272\201\273\"\210\300\201\274\201\275\"\210\300\201\276\201\277\"\210\300\201\300\201\301\"\210\300\201\302\201\303\"\210\300\201\304\201\305\"\210\300\201\306\201\307\"\210\300\201\310\201\311\"\210\300\201\312\201\311\"\210\300\201\313\201\314\"\210\300\201\315\201\316\"\210\300\201\317\201\320\"\210\300\201\321\201\322\"\210\300\201\323\201\324\"\210\300\201\325\201\326\"\210\300\201\327\201\330\"\210\300\201\331\201\332\"\210\300\201\333\201\334\"\210\300\201\335\201\336\"\210\300\201\337\201\340\"\210\300\201\341\201\342\"\210\300\201\343\201\344\"\210\300\201\345\201\346\"\210\300\201\347\201\350\"\210\300\201\351\201\352\"\210\300\201\353\201\354\"\210\300\201\355\201\356\"\210\300\201\357\201\360\"\210\300\201\361\201\362\"\210\300\201\363\201\364\"\210\300\201\365\201\366\"\210\300\201\367\201\370\"\210\300\201\371\201\372\"\210\300\201\373\201\374\"\210\300\201\375\201\376\"\210\300\201\377\201\"\210\300\201\201\"\210\300\201\201\"\207" [ml-expansion defun "ml-defun" if "ml-if" setq #[nil "\300\301!\205 \302\303!\207" [looking-at "setq[ \n]+buffer-modified-p" replace-match "set-buffer-modified-p"] 2] arg "ml-arg" nargs "ml-nargs" interactive "ml-interactive" message "ml-message" print "ml-print" set "ml-set" set-default "ml-set-default" provide-prefix-argument "ml-provide-prefix-argument" prefix-argument-loop "ml-prefix-argument-loop" prefix-argument "ml-prefix-arg" use-local-map "ml-use-local-map" use-global-map "ml-use-global-map" modify-syntax-entry "ml-modify-syntax-entry" error-message "error" dot "point-marker" mark "mark-marker" beginning-of-file "beginning-of-buffer" end-of-file "end-of-buffer" exchange-dot-and-mark "exchange-point-and-mark" set-mark "set-mark-command" argument-prefix "universal-arg" previous-page "ml-previous-page" next-page "ml-next-page" next-window "ml-next-window" previous-window "ml-previous-window" newline "ml-newline" next-line "ml-next-line" previous-line "ml-previous-line" self-insert "self-insert-command" meta-digit "digit-argument" meta-minus "negative-argument" newline-and-indent "ml-newline-and-indent" yank-from-killbuffer "yank" yank-buffer "insert-buffer" copy-region "copy-region-as-kill" delete-white-space "delete-horizontal-space" widen-region "widen" forward-word #[nil "\300\301!\205 \302\303!\207" [looking-at "forward-word[ \n]*)" replace-match "forward-word 1)"] 2] backward-word #[nil "\300\301!\205 \302\303!\207" [looking-at "backward-word[ \n]*)" replace-match "backward-word 1)"] 2] forward-paren "forward-list" backward-paren "backward-list" search-reverse "ml-search-backward" re-search-reverse "ml-re-search-backward" search-forward "ml-search-forward" re-search-forward "ml-re-search-forward" quote "regexp-quote" re-query-replace "query-replace-regexp" re-replace-string "replace-regexp" get-tty-character "read-char" get-tty-input "read-input" get-tty-string "read-string" get-tty-buffer "read-buffer" get-tty-command "read-command" get-tty-variable "read-variable" get-tty-no-blanks-input "read-no-blanks-input" get-tty-key "read-key" concat "ml-concat" c= "char-equal" goto-character "goto-char" substr "ml-substr" variable-apropos "apropos" execute-mlisp-buffer "eval-current-buffer" execute-mlisp-file "load" visit-file "find-file" read-file write-modified-files "save-some-buffers" backup-before-writing "make-backup-files" write-file-exit "save-buffers-kill-emacs" write-named-file "write-file" change-file-name "set-visited-file-name" change-buffer-name "rename-buffer" buffer-exists "get-buffer" delete-buffer "kill-buffer" unlink-file "delete-file" unlink-checkpoint-files "delete-auto-save-files" file-exists "file-exists-p" write-current-file "save-buffer" change-directory "cd" temp-use-buffer "set-buffer" fast-filter-region "filter-region" pending-input "input-pending-p" execute-keyboard-macro "call-last-kbd-macro" start-remembering "start-kbd-macro" end-remembering "end-kbd-macro" define-keyboard-macro "name-last-kbd-macro" define-string-macro "ml-define-string-macro" current-column "ml-current-column" current-indent "ml-current-indent" insert-character "insert" users-login-name "user-login-name" users-full-name "user-full-name" current-time "current-time-string" current-numeric-time "current-numeric-time-you-lose" current-buffer-name "buffer-name" current-file-name "buffer-file-name" local-binding-of "local-key-binding" global-binding-of "global-key-binding" remove-key-binding "global-unset-key" remove-binding remove-local-binding "local-unset-key" remove-all-local-bindings "use-local-map nil" autoload "ml-autoload" checkpoint-frequency "auto-save-interval" mode-string "mode-name" right-margin "fill-column" tab-size "tab-width" default-right-margin "default-fill-column" default-tab-size "default-tab-width" buffer-is-modified "(buffer-modified-p)" file-modified-time "you-lose-on-file-modified-time" needs-checkpointing "you-lose-on-needs-checkpointing" lines-on-screen "set-frame-height" columns-on-screen "set-frame-width" dumped-emacs "t" buffer-size "ml-buffer-size" dot-is-visible "pos-visible-in-window-p" track-eol-on-^N-^P "track-eol" ctlchar-with-^ "ctl-arrow" help-on-command-completion-error "completion-auto-help" dump-stack-trace "backtrace" pause-emacs "suspend-emacs" compile-it "compile" != "/=" & "logand" | "logior" ^ "logxor" ! "ml-not" << "lsh"] 3)