
(require (quote mim-mode))

(defun slow-syntax-check-mim nil "\
Check Mim syntax slowly.
Points out the context of the error, if the syntax is incorrect." (interactive) (byte-code "З€ИЙ!€dЗЗЗЗЗЉeb€?…  КЛЖ#…› h‰€
МUѓ4 ЗНОЏ‚— 
ПUѓA ЗРСЏ‚— Т
!УUѓ~ ?†[ ФХЦ HЧ\"Ш\"
U?ѓd `‰‚{ 	@‰€ѓs Sf‚t З‰€	A‰‚— Ж…— ѓЋ 	B‰‚Џ З€`‰€
‰€‚ )€†ў ?ѓ¬ ИЩ!‚ь ѓп b€Ъ
М\"ѓА ЫЬ!‚м ?ѓО ЫЭЮ
!\"‚м Ж…м ЫЯЉ`S‰€Sb€а`б €`^\")Ю
!#‚ь Ж…ь b€ЫвЮ!\".‡" [stop point-stack current last-bracket whoops last-point t nil message "checking syntax..." re-search-forward "\\s(\\|\\s)\\|\"\\|[\\]" 34 (byte-code "ВГ!€Б‰‡" [current nil re-search-forward "[^\\]\""] 3) ((error (byte-code "`‰‡" [whoops] 2))) 92 (byte-code "АБ!‡" [forward-char 1] 2) ((error (byte-code "А‡" [nil] 1))) char-syntax 41 logand lsh syntax-table -8 127 "Syntax correct" equal error "Unterminated string" "Extraneous %s" char-to-string "Mismatched %s with %s" buffer-substring end-of-line "Unmatched %s"] 19))

(defun fast-syntax-check-mim nil "\
Checks Mim syntax quickly.
Answers correct or incorrect, cannot point out the error context." (interactive) (byte-code "Б€Љeb€Бm?… ВГ`dД#‰@Д\"…  Б€‚ €В@Д\"ѓ/ ЕЖ!‚2 ЗИ!))‡" [state nil equal parse-partial-sexp 0 message "Syntax correct" error "Syntax incorrect"] 6))