(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 mim-mode-syntax-table nil (let ((i -1)) (setq mim-mode-syntax-table (make-syntax-table)) (while (< i 32) (modify-syntax-entry (setq i (1+ i)) " " mim-mode-syntax-table)) (while (< i 127) (modify-syntax-entry (setq i (1+ i)) "_ " mim-mode-syntax-table)) (setq i (1- 97)) (while (< i 122) (modify-syntax-entry (setq i (1+ i)) "w " mim-mode-syntax-table)) (setq i (1- 65)) (while (< i 90) (modify-syntax-entry (setq i (1+ i)) "w " mim-mode-syntax-table)) (setq i (1- 48)) (while (< i 57) (modify-syntax-entry (setq i (1+ i)) "w " mim-mode-syntax-table)) (modify-syntax-entry 58 " " mim-mode-syntax-table) (modify-syntax-entry 44 "' " mim-mode-syntax-table) (modify-syntax-entry 46 "' " mim-mode-syntax-table) (modify-syntax-entry 39 "' " mim-mode-syntax-table) (modify-syntax-entry 96 "' " mim-mode-syntax-table) (modify-syntax-entry 126 "' " mim-mode-syntax-table) (modify-syntax-entry 59 "' " mim-mode-syntax-table) (modify-syntax-entry 35 "' " mim-mode-syntax-table) (modify-syntax-entry 37 "' " mim-mode-syntax-table) (modify-syntax-entry 33 "' " mim-mode-syntax-table) (modify-syntax-entry 34 "\" " mim-mode-syntax-table) (modify-syntax-entry 92 "\\ " mim-mode-syntax-table) (modify-syntax-entry 40 "() " mim-mode-syntax-table) (modify-syntax-entry 60 "(> " mim-mode-syntax-table) (modify-syntax-entry 123 "(} " mim-mode-syntax-table) (modify-syntax-entry 91 "(] " mim-mode-syntax-table) (modify-syntax-entry 41 ")( " mim-mode-syntax-table) (modify-syntax-entry 62 ")< " mim-mode-syntax-table) (modify-syntax-entry 125 "){ " mim-mode-syntax-table) (modify-syntax-entry 93 ")[ " mim-mode-syntax-table))) (defconst mim-whitespace "