;ELC ;;; compiled by cthomp@willow on Thu Aug 12 00:37:33 1993 ;;; from file /era/era-0.80/editor/lisp/modes/mim-syntax.el ;;; emacs version 19.8 (beta8) Lucid. ;;; bytecomp version 2.15; 14-jul-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (require 'mim-mode) (fset 'slow-syntax-check-mim #[nil "!d‰eb #hUΏfUяYzU H\"\"U`<@ SfA) B`) ! b̚! !\"݊`S Sb`` ^{)!# b !\"." [message "checking syntax..." nil last-point whoops last-bracket current point-stack stop re-search-forward "\\s(\\|\\s)\\|\"\\|[\\]" t 34 (byte-code "!‡" [re-search-forward "[^\\]\"" nil current] 2) ((error (byte-code "`" [whoops nil] 1))) 92 (forward-char 1) ((error)) 41 logand lsh syntax-table -8 127 "Syntax correct" error "Unterminated string" "Extraneous %s" char-to-string "Mismatched %s with %s" "Unmatched %s"] 7 "\ Check Mim syntax slowly. Points out the context of the error, if the syntax is incorrect." nil]) (fset 'fast-syntax-check-mim #[nil "ebm`d#@Úq @Ú!!*" [nil state parse-partial-sexp 0 message "Syntax correct" error "Syntax incorrect"] 4 "\ Checks Mim syntax quickly. Answers correct or incorrect, cannot point out the error context." nil])