usr/contrib/lib/emacs/lisp/mim-mode.elc


(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 "