;ELC   
;;; Compiled by cyd@localhost on Mon Apr 23 22:20:34 2007
;;; from file /home/cyd/emacs/lisp/case-table.el
;;; in Emacs version 22.0.99
;;; 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\302\301!\204 \303\301\304\"\210\305B\302\305!\204 \303\305\306\"\210\306\207" [current-load-list set-case-syntax-offset default-boundp set-default 0 set-case-syntax-set-multibyte nil] 3)
#@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 (#$ . 778) nil])
#@40 Return the upcase table of CASE-TABLE.
(defalias 'get-upcase-table #[(case-table) "\302\303\"\206 \304 \305\216\306!\210\302\303\"*\207" [case-table old char-table-extra-slot 0 standard-case-table ((byte-code "	=\204\n \302	!\210\302\207" [case-table old set-standard-case-table] 2)) set-standard-case-table] 3 (#$ . 1331)])
(defalias 'copy-case-table #[(case-table) "\303!\304\305\"	\203 \306\n\305\303	!#\210\306\n\307\310#\210\306\n\311\310#\210\n*\207" [case-table up copy copy-sequence char-table-extra-slot 0 set-char-table-extra-slot 1 nil 2] 5])
#@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 (#$ . 1902)])
(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\306Y\203 	\307W\203 	\n\\\202 	)\211\306Y\203+ 	\307W\203+ 	\n\\\202, 	)\f\211I\210\f\211I\210\310\f!\211\211I\210\211I\210)\311\f\312\313#\210\311\f\314\313#\210\315\316\317!\320Q\321 #\210\315\322\317!\320Q\321 #\207" [l char set-case-syntax-offset r table up 128 256 get-upcase-table set-char-table-extra-slot 1 nil 2 modify-syntax-entry "(" char-to-string "  " standard-syntax-table ")"] 6 (#$ . 2185)])
#@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\306Y\203 	\307W\203 	\n\\\202 	)\211\306Y\203+ 	\307W\203+ 	\n\\\202, 	)\fI\210\f\211I\210\310\f!\211\211I\210I\210)\311\f\312\313#\210\311\f\314\313#\210\315\316\317 #\210\315\316\317 #\207" [uc char set-case-syntax-offset lc table up 128 256 get-upcase-table set-char-table-extra-slot 1 nil 2 modify-syntax-entry "w   " standard-syntax-table] 5 (#$ . 2946)])
#@133 Make character UC an upcase of character LC.
It also modifies `standard-syntax-table' to give them the syntax of
word constituents.
(defalias 'set-upcase-syntax #[(uc lc table) "\211\306Y\203 	\307W\203 	\n\\\202 	)\211\306Y\203+ 	\307W\203+ 	\n\\\202, 	)\f\211I\210\310\f!\211\211I\210I\210)\311\f\312\313#\210\311\f\314\313#\210\315\316\317 #\210\315\316\317 #\207" [uc char set-case-syntax-offset lc table up 128 256 get-upcase-table set-char-table-extra-slot 1 nil 2 modify-syntax-entry "w   " standard-syntax-table] 5 (#$ . 3672)])
#@134 Make character LC a downcase of character UC.
It also modifies `standard-syntax-table' to give them the syntax of
word constituents.
(defalias 'set-downcase-syntax #[(uc lc table) "\211\306Y\203 	\307W\203 	\n\\\202 	)\211\306Y\203+ 	\307W\203+ 	\n\\\202, 	)\fI\210\f\211I\210\310\f!\211\211I\210)\311\f\312\313#\210\311\f\314\313#\210\315\316\317 #\210\315\316\317 #\207" [uc char set-case-syntax-offset lc table up 128 256 get-upcase-table set-char-table-extra-slot 1 nil 2 modify-syntax-entry "w   " standard-syntax-table] 5 (#$ . 4233)])
#@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\306Y\203 	\307W\203 	\n\\\202 	)\211I\210\310!\211\211I\210)\311\312\313#\210\311\314\313#\210\315\316 #\207" [c char set-case-syntax-offset table up syntax 128 256 get-upcase-table set-char-table-extra-slot 1 nil 2 modify-syntax-entry standard-syntax-table] 5 (#$ . 4798)])
(provide 'case-table)