;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul 5 23:39:32 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/mim-syntax.el ;;; emacs version 19.15.16. ;;; bytecomp version FSF 2.10 ;;; 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 (quote mim-mode)) (defalias 'slow-syntax-check-mim #[nil "!d‰eb #hU5ΏUDяzUz ` H\"\"Uf`@q 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]) (defalias 'fast-syntax-check-mim #[nil "ebm`d#@Ú @Ú$!'!*" [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])