;ELC   
;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:37:32 2003
;;; from file /home/pot/gnu/emacs-pretest.new/lisp/case-table.el
;;; in Emacs version 21.3
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(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 "\301B\303\301!\204\f \304\302B\303\302!\204 \305\305\207" [current-load-list set-case-syntax-offset set-case-syntax-set-multibyte boundp 0 nil] 2)
#@48 Describe the case table of the current buffer.
(defalias 'describe-buffer-case-table #[nil "\302\303!\304\305\306 \"\210\212\307\220	q\210\310!\210\311 \221*\207" [description standard-output make-char-table case-table map-char-table #[(key value) "	\303\n!\204\f \304\202- 	\211\227U\204 \305\306	\227!P\202- 	\211\226U\204, \307\306	\226!P\202- \304I\207" [description key value natnump "case-invariant" "uppercase, matches " char-to-string "lowercase, matches "] 5] current-case-table "*Help*" describe-vector help-mode] 3 (#$ . 788) nil])
(defalias 'copy-case-table #[(case-table) "\302!\303	\304\305#\210\303	\306\305#\210\303	\307\305#\210	)\207" [case-table copy copy-sequence 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) "\302Y\203 \303W\203 	\\\207\207" [char set-case-syntax-offset 128 256] 2 (#$ . 1525)])
(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) "\211\305Y\203 	\306W\203 	\n\\\202 	)\211\305Y\203+ 	\306W\203+ 	\n\\\202, 	)\f\211I\210\f\211I\210\307\f\310\311#\210\307\f\312\311#\210\307\f\313\311#\210\314\315\316!\317Q\320 #\210\314\321\316!\317Q\320 #\207" [l char set-case-syntax-offset r table 128 256 set-char-table-extra-slot 0 nil 1 2 modify-syntax-entry "(" char-to-string "  " standard-syntax-table ")"] 6 (#$ . 1808)])
#@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) "\211\305Y\203 	\306W\203 	\n\\\202 	)\211\305Y\203+ 	\306W\203+ 	\n\\\202, 	)\fI\210\f\211I\210\307\f\310\311#\210\307\f\312\311#\210\307\f\313\311#\210\314\315\316 #\210\314\315\316 #\207" [uc char set-case-syntax-offset lc table 128 256 set-char-table-extra-slot 0 nil 1 2 modify-syntax-entry "w   " standard-syntax-table] 5 (#$ . 2536)])
#@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) "\211\305Y\203 	\306W\203 	\n\\\202 	)\211I\210\307\310\311#\210\307\312\311#\210\307\313\311#\210\314\f\315 #\207" [c char set-case-syntax-offset table syntax 128 256 set-char-table-extra-slot 0 nil 1 2 modify-syntax-entry standard-syntax-table] 5 (#$ . 3232)])
(provide 'case-table)