;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Tue Jul 20 03:24:21 1993 ;;; from file /home/fsf/rms/e19/lisp/mlconvert.el ;;; emacs version 19.16.13. ;;; 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 "This file was compiled for Emacs 19")) (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 "\ Convert buffer of Mocklisp code to real Lisp that GNU Emacs can run." nil]) (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\"ˆÅ{|\"ˆÅ}~\"ˆÅ€\"ˆÅ‚\"ˆÅƒ„\"ˆÅ…†\"ˆÅ‡ˆ\"ˆÅ‰Š\"ˆÅ‹Š\"ˆÅŒ\"ˆÅŽ\"ˆÅ‘\"ˆÅ’“\"ˆÅ”•\"ˆÅ–—\"ˆÅ˜™\"ˆÅš›\"ˆÅœ\"ˆÅžŸ\"ˆÅ ¡\"ˆÅ¢£\"ˆÅ¤¥\"ˆÅ¦§\"ˆÅ¨©\"ˆÅª«\"ˆÅ¬­\"ˆÅ®¯\"ˆÅ°±\"ˆÅ²³\"ˆÅ´µ\"ˆÅ¶·\"ˆÅ¸¹\"ˆÅº»\"ˆÅ¼½\"ˆÅ¾¿\"ˆÅÀÁ\"ˆÅÂÃ\"ˆÅÄÅ\"ˆÅÆÇ\"ˆÅÈÉ\"ˆÅÊË\"ˆÅÌÍ\"ˆÅÎÍ\"ˆÅÏÐ\"ˆÅÑÒ\"ˆÅÓÔ\"ˆÅÕÖ\"ˆÅ×Ø\"ˆÅÙÚ\"ˆÅÛÜ\"ˆÅÝÞ\"ˆÅßà\"ˆÅáâ\"ˆÅãä\"ˆÅåæ\"ˆÅçè\"ˆÅéê\"ˆÅëì\"ˆÅíî\"ˆÅïð\"ˆÅñò\"ˆÅóô\"ˆÅõö\"ˆÅ÷ø\"ˆÅùú\"ˆÅûü\"ˆÅýþ\"ˆÅÿ\"ˆÅ\"ˆÅ\"ˆÅ\"ˆÅ\"‡" [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] 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] ml-expansion #[(ml-name lisp-string) "À  #‡" [put ml-name mocklisp lisp-string] 4] 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" 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)