(defun convert-mocklisp-buffer nil "\ Convert buffer of mocklisp code into real lisp." (interactive) (byte-code "ÀˆÁ ˆÂÃ!ˆebˆÄcˆÅcˆÆ ˆebˆÇ ˆebˆÂÈ!‡" [nil emacs-lisp-mode message "Converting mocklisp (ugh!)..." ";;; GNU Emacs code converted from Mocklisp " "(require 'mlsupport) " fix-mlisp-syntax fix-mlisp-symbols "Converting mocklisp...done"] 7)) (defun fix-mlisp-syntax nil (byte-code "Âà #…C hÄUƒ ÅÆ!ˆÇÈ!‚? ÉÆ!ˆÊcˆgËUƒ+ ÅÈ!‚7 ÌÍ!ƒ6 Ëc‚7 ÀˆÅÈ!ˆÉÈ!ˆ‚ ‡" [nil t re-search-forward "['\"]" 34 forward-char -1 forward-sexp 1 delete-char "?" 92 looking-at "[^a-zA-Z]"] 16)) (defun fix-mlisp-symbols nil (byte-code "ÃÄ!ˆm?…g gÅU† gÆUƒ ÇÈ!‚c gÉUƒ'