;ELC ;;; compiled by jwz@thalidomide on Fri Dec 31 23:30:53 1993 ;;; from file /th/jwz/emacs19/lisp/emulators/mlconvert.el ;;; emacs version 19.9 Lucid (beta9). ;;; bytecomp version 2.22; 22-dec-93. ;;; 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.")) (fset '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 "ÀÁMˆÂÃMˆÄÅMˆÄÆÇ\"ˆÄÈÉ\"ˆÄÊË\"ˆÄÌÍ\"ˆÄÎÏ\"ˆÄÐÑ\"ˆÄÒÓ\"ˆÄÔÕ\"ˆÄÖ×\"ˆÄØÙ\"ˆÄÚÛ\"ˆÄÜÝ\"ˆÄÞß\"ˆÄàá\"ˆÄâã\"ˆÄäå\"ˆÄæç\"ˆÄèé\"ˆÄêë\"ˆÄìí\"ˆÄîï\"ˆÄðñ\"ˆÄòó\"ˆÄôõ\"ˆÄö÷\"ˆÄøù\"ˆÄúû\"ˆÄüý\"ˆÄþÿ\"ˆÄ@A\"ˆÄBC\"ˆÄDE\"ˆÄFG\"ˆÄHI\"ˆÄJK\"ˆÄLM\"ˆÄNO\"ˆÄPQ\"ˆÄRS\"ˆÄTU\"ˆÄVW\"ˆÄXY\"ˆÄZ[\"ˆÄ\\]\"ˆÄ^_\"ˆÄ`a\"ˆÄbc\"ˆÄde\"ˆÄfg\"ˆÄhi\"ˆÄjk\"ˆÄlm\"ˆÄno\"ˆÄpq\"ˆÄrs\"ˆÄtu\"ˆÄvw\"ˆÄxy\"ˆÄz{\"ˆÄ|}\"ˆÄ~\"ˆÄ€\"ˆÄ‚ƒ\"ˆÄ„…\"ˆÄ†‡\"ˆÄˆ‰\"ˆÄŠ‹\"ˆÄŒ‹\"ˆÄŽ\"ˆÄ\"ˆÄ‘’\"ˆÄ“”\"ˆÄ•–\"ˆÄ—˜\"ˆÄ™š\"ˆÄ›œ\"ˆÄž\"ˆÄŸ \"ˆÄ¡¢\"ˆÄ£¤\"ˆÄ¥¦\"ˆÄ§¨\"ˆÄ©ª\"ˆÄ«¬\"ˆÄ­®\"ˆÄ¯°\"ˆÄ±²\"ˆÄ³´\"ˆÄµ¶\"ˆÄ·¸\"ˆÄ¹º\"ˆÄ»¼\"ˆÄ½¾\"ˆÄ¿À\"ˆÄÁÂ\"ˆÄÃÄ\"ˆÄÅÆ\"ˆÄÇÈ\"ˆÄÉÊ\"ˆÄËÌ\"ˆÄÍÎ\"ˆÄÏÎ\"ˆÄÐÑ\"ˆÄÒÓ\"ˆÄÔÕ\"ˆÄÖ×\"ˆÄØÙ\"ˆÄÚÛ\"ˆÄÜÝ\"ˆÄÞß\"ˆÄàá\"ˆÄâã\"ˆÄäå\"ˆÄæç\"ˆÄèé\"ˆÄêë\"ˆÄìí\"ˆÄîï\"ˆÄðñ\"ˆÄòó\"ˆÄôõ\"ˆÄö÷\"ˆÄøù\"ˆÄúû\"ˆÄüý\"ˆÄþÿ\"ˆÄ\"ˆÄ\"ˆÄ\"ˆÄ\"ˆÄ \"‡" [fix-mlisp-syntax #[nil "ÀÁÂÃ#­µhÄU«‰ÅuˆÆÇ!ˆªkÈÅ!ˆÉcˆgÊU¬…gËU«…ÇuˆªˆÌÍ!«ƒÊcˆÇuˆÈÇ!ˆªD‡" [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«†ÄÅ!ˆªhgÆU«…Åyˆª^`ÁÄÅ!ˆÉ`{!ÊN‰«š;«‹`|ˆ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"))) while (lambda nil (let ((end (progn (forward-sexp 2) (point-marker))) (start (progn (forward-sexp -1) (point)))) (let ((cond (buffer-substring start end))) (cond ((equal cond "1") (delete-region (point) end) (insert "t")) (t (insert "(not (zerop ") (goto-char end) (insert "))"))) (set-marker end nil) (goto-char start)))) 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-screen-height" columns-on-screen "set-screen-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)