(provide (quote mim-mode)) (autoload (quote fast-syntax-check-mim) "mim-syntax" "\ Checks Mim syntax quickly. Answers correct or incorrect, cannot point out the error context." t) (autoload (quote slow-syntax-check-mim) "mim-syntax" "\ Check Mim syntax slowly. Points out the context of the error, if the syntax is incorrect." t) (defvar mim-mode-hysterical-bindings t "*Non-nil means bind list manipulation commands to Meta keys as well as Control-Meta keys for historical reasons. Otherwise, only the latter keys are bound.") (defvar mim-mode-map nil) (defvar mim-mode-syntax-table nil) (if (not mim-mode-syntax-table) (let ((i -1) (old-syntax-table (syntax-table))) (setq mim-mode-syntax-table (make-syntax-table)) (set-syntax-table mim-mode-syntax-table) (while (< i 32) (modify-syntax-entry (setq i (1+ i)) " ")) (while (< i 127) (modify-syntax-entry (setq i (1+ i)) "_ ")) (setq i (1- 97)) (while (< i 122) (modify-syntax-entry (setq i (1+ i)) "w ")) (setq i (1- 65)) (while (< i 90) (modify-syntax-entry (setq i (1+ i)) "w ")) (setq i (1- 48)) (while (< i 57) (modify-syntax-entry (setq i (1+ i)) "w ")) (modify-syntax-entry 58 " ") (modify-syntax-entry 44 "' ") (modify-syntax-entry 46 "' ") (modify-syntax-entry 39 "' ") (modify-syntax-entry 96 "' ") (modify-syntax-entry 126 "' ") (modify-syntax-entry 59 "' ") (modify-syntax-entry 35 "' ") (modify-syntax-entry 37 "' ") (modify-syntax-entry 33 "' ") (modify-syntax-entry 34 "\" ") (modify-syntax-entry 92 "\\ ") (modify-syntax-entry 40 "() ") (modify-syntax-entry 60 "(> ") (modify-syntax-entry 123 "(} ") (modify-syntax-entry 91 "(] ") (modify-syntax-entry 41 ")( ") (modify-syntax-entry 62 ")< ") (modify-syntax-entry 125 "){ ") (modify-syntax-entry 93 ")[ ") (set-syntax-table old-syntax-table))) (defconst mim-whitespace "