;ELC   
;;; compiled by cthomp@willow on Thu Aug 12 00:49:51 1993
;;; from file /era/era-0.80/editor/lisp/utils/symbol-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."))

(byte-code "ÀÁ!¬‚ÂÃÄMˆÅÆMˆÇÈMˆÉÊMˆËÌ!‡" [boundp symbol-syntax-table-alist nil update-symbol-syntax-table-alist #[nil "Á‰:­Ö@¬†ÄÅ!ˆª«@@¬†ÄÆ!ˆª @@‰9«˜@A«„ÄÇ!ˆ\n9«†\nJ‰ªw@\n ˆÈ@@!¬†ÄÉ!ˆªŽ@A¬‰@Ê@@!¡ˆA‰ª'*‡" [symbol-syntax-table-alist nil item alist error "Missing alist item" "Alist item with null car" "Alist item expected to have null cdr" syntax-table-p "Alist item car expected to be symbol table" make-symbol-syntax-table] 4] get-symbol-syntax-table #[(norm-table) "À\nž‰¬Ä ˆ\nž‰¬“\nCBÄ ˆ\nž‰¬„ÅÆ!ˆ	A‰¬„ÅÇ!ˆÈ	!¬„ÅÉ!ˆ	)‡" [nil result norm-table symbol-syntax-table-alist update-symbol-syntax-table-alist error "Syntax table missing from symbol-syntax-table-alist" "Alist item has null cdr" syntax-table-p "Non-syntax-table item in alist"] 2] make-symbol-syntax-table #[(in-table) "À Á\n!ÃÄÉW«£HÊË\"Ì=«ÍÊÎ\"Ï\"IˆT‰ªY,‡" [syntax-table copy-syntax-table in-table 0 nil syntax i out-table osyn 256 logand 255 3 logior -256 2] 7] show-chars-with-syntax #[(tables syntax) "À ÁÄŽ:«ÜÁ@‰É\n9¬„ËÌ!ˆ9«ˆJ‰ªuÍ!ˆ\nÎW«š\nz=«ŠÐÑ\n\"B\nT‰\nªbÒÓŸÔ#D\nB,A‰ª!)\nŸ*‡" [syntax-table nil schars osyn ((set-syntax-table osyn)) tables chars table-symbol table 0 i error "bad argument non-symbol" set-syntax-table 256 syntax format "%c" mapconcat identity ""] 6] provide symbol-syntax] 2)