;ELC   
;;; compiled by rms@mole.gnu.ai.mit.edu on Sat Nov 11 18:59:33 1995
;;; from file /home/fsf/rms/e19/lisp/case-table.el
;;; emacs version 19.29.1.1.
;;; 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.28.90")))
    (error "`case-table.el' was compiled for Emacs 19.29 or later"))


#@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) "А	\n‰„ Г‚, \n‰—U„ ДЕ\n—!P‚, \n‰–U„+ ЖЕ\n–!P‚, Г#‡" [set-char-table-range description key "case-invariant" "uppercase, matches " char-to-string "lowercase, matches "] 6] current-case-table "*Help*" standard-output describe-vector help-mode] 3 (#$ . 480) 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])
#@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) "	‰I€\n‰I€ГДЕ#€ГЖЕ#€ГЗЕ#€И	ЙК\n!ЛQМ #€И\nНК	!ЛQМ #‡" [table l r set-char-table-extra-slot 0 nil 1 2 modify-syntax-entry "(" char-to-string "  " standard-syntax-table ")"] 5 (#$ . 1086)])
#@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) "	\nI€\n‰I€ГДЕ#€ГЖЕ#€ГЗЕ#€И\nЙК #€И	ЙК #‡" [table uc lc set-char-table-extra-slot 0 nil 1 2 modify-syntax-entry "w   " standard-syntax-table] 4 (#$ . 1606)])
#@257 Make characters C case-invariant with syntax SYNTAX.
This sets the entries 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) "	‰I€ВГД#€ВЕД#€ВЖД#€З	Й #‡" [table c set-char-table-extra-slot 0 nil 1 2 modify-syntax-entry syntax standard-syntax-table] 4 (#$ . 2109)])
(provide (quote case-table))