;ELC   
;;; Compiled by rms@psilocin.gnu.ai.mit.edu on Mon Aug 11 19:32:40 1997
;;; from file /home/fsf/rms/e19/lisp/case-table.el
;;; in Emacs version 20.0.93.5
;;; with bytecomp version 2.33
;;; with all optimizations.
;;; This file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`case-table.el' was compiled for Emacs 19.29 or later"))


(byte-code "АБ!„ ВБBАД!„ ЕДBЕ‡" [boundp set-case-syntax-offset 0 current-load-list set-case-syntax-set-multibyte nil] 2)
#@48 Describe the case table of the current buffer.
(defalias 'describe-buffer-case-table #[nil "АБ!ГДЕ \"€ЉЖђq€И\n!€Й ‘*‡" [make-char-table case-table description map-char-table #[(key value) "	В!„\f Д‚- 	‰—U„ ЕЖ	—!P‚- 	‰–U„, ЗЖ	–!P‚- ДI‡" [description key natnump value "case-invariant" "uppercase, matches " char-to-string "lowercase, matches "] 5] current-case-table "*Help*" standard-output describe-vector help-mode] 3 (#$ . 675) nil])
(defalias 'copy-case-table #[(case-table) "А	!Г\nДЕ#€Г\nЖЕ#€Г\nЗЕ#€\n)‡" [copy-sequence case-table copy set-char-table-extra-slot 0 nil 1 2] 4])
#@76 Offset CHAR by `set-case-syntax-offset' if CHAR is a non-ASCII 8-bit char.
(defalias 'set-case-syntax-1 #[(char) "БYѓ ВWѓ \\‡‡" [char 128 256 set-case-syntax-offset] 2 (#$ . 1270)])
(put 'set-case-syntax-1 'byte-optimizer 'byte-compile-inline-expand)
#@274 Make characters L and R a matching pair of non-case-converting delimiters.
This sets the entries for L and R in TABLE, which is a string
that will be used as the downcase part of a case table.
It also modifies `standard-syntax-table' to
indicate left and right delimiters.
(defalias 'set-case-syntax-delims #[(l r table) "‰ВYѓ 	ГWѓ 	\f\\‚ 	)‰ВYѓ+ 	ГWѓ+ 	\f\\‚, 	)‰I€‰I€ЗИЙ#€ЗКЙ#€ЗЛЙ#€МНО!ПQР #€МСО!ПQР #‡" [l char 128 256 set-case-syntax-offset r table set-char-table-extra-slot 0 nil 1 2 modify-syntax-entry "(" char-to-string "  " standard-syntax-table ")"] 6 (#$ . 1535)])
#@286 Make characters UC and LC a pair of inter-case-converting letters.
This sets the entries for characters UC and LC in TABLE, which is a string
that will be used as the downcase part of a case table.
It also modifies `standard-syntax-table' to give them the syntax of
word constituents.
(defalias 'set-case-syntax-pair #[(uc lc table) "‰ВYѓ 	ГWѓ 	\f\\‚ 	)‰ВYѓ+ 	ГWѓ+ 	\f\\‚, 	)I€‰I€ЗИЙ#€ЗКЙ#€ЗЛЙ#€МНО #€МНО #‡" [uc char 128 256 set-case-syntax-offset lc table set-char-table-extra-slot 0 nil 1 2 modify-syntax-entry "w   " standard-syntax-table] 5 (#$ . 2143)])
#@254 Make character C case-invariant with syntax SYNTAX.
This sets the entry for character C in TABLE, which is a string
that will be used as the downcase part of a case table.
It also modifies `standard-syntax-table'.
SYNTAX should be " ", "w", "." or "_".
(defalias 'set-case-syntax #[(c syntax table) "‰ВYѓ 	ГWѓ 	\f\\‚ 	)‰I€ЖЗИ#€ЖЙИ#€ЖКИ#€Л\fН #‡" [c char 128 256 set-case-syntax-offset table set-char-table-extra-slot 0 nil 1 2 modify-syntax-entry syntax standard-syntax-table] 5 (#$ . 2734)])
(provide 'case-table)