;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:47:03 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/mlconvert.el ;;; emacs version 19.28.90.26. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/mlconvert.el' was compiled for Emacs 19")) #@70 Convert buffer of Mocklisp code to real Lisp that GNU Emacs can run. (defalias 'convert-mocklisp-buffer #[nil "À ˆÁÂà !!ˆÄÅÆ\"ˆÇÈ!ˆebˆÉ ˆebˆÊË̈ebˆÍcˆÎcˆÏ ˆebˆÇÐ!‡" [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 "`Àp! <ƒ! @Ã=„!ÄcˆŠ\nbˆÅÆwˆÇcˆ)*‚" [read form opt 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 (#$ . 487) nil]) (defalias 'fix-mlisp-syntax #[nil "ÀÁÂÃ#…DhÄUƒÅuˆÆÇ!ˆ‚ÈÅ!ˆÉcˆgÊU„+gËUƒ1Çuˆ‚:ÌÍ!ƒ:ÊcˆÇuˆÈÇ!ˆ‚‡" [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 "ÀÁwˆm?…`gÂU„gÃUƒÄÅ!ˆ‚gÆUƒ(Åyˆ‚`ÁÄÅ!ˆÉ`{!ÊN‰ƒ\\;ƒR`|ˆcˆ‚\\Šbˆ ˆ)*‚‡" [" \n()" nil 63 34 forward-sexp 1 59 prop start intern-soft mocklisp] 4]) (defalias 'ml-expansion #[(ml-name lisp-string) "À  #‡" [put ml-name mocklisp lisp-string] 4]) (byte-code "ÀÁÂ\"ˆÀÃÄ\"ˆÀÅÆ\"ˆÀÇÈ\"ˆÀÉÊ\"ˆÀËÌ\"ˆÀÍÎ\"ˆÀÏÐ\"ˆÀÑÒ\"ˆÀÓÔ\"ˆÀÕÖ\"ˆÀ×Ø\"ˆÀÙÚ\"ˆÀÛÜ\"ˆÀÝÞ\"ˆÀßà\"ˆÀáâ\"ˆÀãä\"ˆÀåæ\"ˆÀçè\"ˆÀéê\"ˆÀëì\"ˆÀíî\"ˆÀïð\"ˆÀñò\"ˆÀóô\"ˆÀõö\"ˆÀ÷ø\"ˆÀùú\"ˆÀûü\"ˆÀýþ\"ˆÀÿ@\"ˆÀAB\"ˆÀCD\"ˆÀEF\"ˆÀGH\"ˆÀIJ\"ˆÀKL\"ˆÀMN\"ˆÀOP\"ˆÀQR\"ˆÀST\"ˆÀUV\"ˆÀWX\"ˆÀYZ\"ˆÀ[\\\"ˆÀ]^\"ˆÀ_`\"ˆÀab\"ˆÀcd\"ˆÀef\"ˆÀgh\"ˆÀij\"ˆÀkl\"ˆÀmn\"ˆÀop\"ˆÀqr\"ˆÀst\"ˆÀuv\"ˆÀwx\"ˆÀyz\"ˆÀ{|\"ˆÀ}~\"ˆÀ€\"ˆÀ‚\"ˆÀƒ„\"ˆÀ…†\"ˆÀ‡†\"ˆÀˆ‰\"ˆÀŠ‹\"ˆÀŒ\"ˆÀŽ\"ˆÀ‘\"ˆÀ’“\"ˆÀ”•\"ˆÀ–—\"ˆÀ˜™\"ˆÀš›\"ˆÀœ\"ˆÀžŸ\"ˆÀ ¡\"ˆÀ¢£\"ˆÀ¤¥\"ˆÀ¦§\"ˆÀ¨©\"ˆÀª«\"ˆÀ¬­\"ˆÀ®¯\"ˆÀ°±\"ˆÀ²³\"ˆÀ´µ\"ˆÀ¶·\"ˆÀ¸¹\"ˆÀº»\"ˆÀ¼½\"ˆÀ¾¿\"ˆÀÀÁ\"ˆÀÂÃ\"ˆÀÄÅ\"ˆÀÆÇ\"ˆÀÈÉ\"ˆÀÊÉ\"ˆÀËÌ\"ˆÀÍÎ\"ˆÀÏÐ\"ˆÀÑÒ\"ˆÀÓÔ\"ˆÀÕÖ\"ˆÀ×Ø\"ˆÀÙÚ\"ˆÀÛÜ\"ˆÀÝÞ\"ˆÀßà\"ˆÀáâ\"ˆÀãä\"ˆÀåæ\"ˆÀçè\"ˆÀéê\"ˆÀëì\"ˆÀíî\"ˆÀïð\"ˆÀñò\"ˆÀóô\"ˆÀõö\"ˆÀ÷ø\"ˆÀùú\"ˆÀûü\"ˆÀýþ\"ˆÀÿ\"ˆÀ\"ˆÀ\"‡" [ml-expansion defun "ml-defun" if "ml-if" setq (lambda nil (if (looking-at "setq[ \n]+buffer-modified-p") (replace-match "set-buffer-modified-p"))) 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 (lambda nil (if (looking-at "forward-word[ \n]*)") (replace-match "forward-word 1)"))) backward-word (lambda nil (if (looking-at "backward-word[ \n]*)") (replace-match "backward-word 1)"))) 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)