;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@48 Describe the case table of the current buffer.
(defalias 'describe-buffer-case-table #[0 "\306\307!\310\311\312\"\313 \"\210\212r\314\315!q\210p\316 \210
\317\211\320\211\320\321 \210\322\323!\210+\211\211q\210\324!\210\325 \326!\210)\266\202)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only make-char-table case-table map-char-table make-closure #[514 "\301
!\204
:\203\302\300\303#\207\300\303I\207\304\211:\203(@\262A\262
\202.\211\262\262

X\205`\300\211\211\227U\204F\305\306\227!P\202W\211\226U\204V\307\306\226!P\202W\303I\210
T\262\202.\207" [V0 natnump set-char-table-range "case-invariant" nil "uppercase, matches " char-to-string "lowercase, matches "] 9 "\n\n(fn KEY VALUE)"] current-case-table get-buffer-create "*Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook describe-vector help-mode internal-temp-output-buffer-show standard-output] 7 (#$ . 84) nil])
#@101 Return the TABLE of CASE-TABLE.
TABLE can be `down', `up', `eqv' or `canon'.

(fn CASE-TABLE TABLE)
(defalias 'case-table-get-table #[514 "\211\300\236A
\301=\203\206(\302\"\206(\303 \304\305#\216\306!\210\302\")\262
\207" [((up . 0) (canon . 1) (eqv . 2)) down char-table-extra-slot standard-case-table make-closure #[0 "\300\301=\206	\302\301!\207" [V0 V1 set-standard-case-table] 2] set-standard-case-table] 8 (#$ . 1106)])
#@57 Return the upcase table of CASE-TABLE.

(fn CASE-TABLE)
(defalias 'get-upcase-table #[257 "\300
\301\"\207" [case-table-get-table up] 4 (#$ . 1552)])
(make-obsolete 'get-upcase-table 'case-table-get-table "24.4")
#@19 

(fn CASE-TABLE)
(defalias 'copy-case-table #[257 "\300
!\301\302\"\211\203\303\302\300!#\210\303\304\305#\210\303\306\305#\210
\207" [copy-sequence char-table-extra-slot 0 set-char-table-extra-slot 1 nil 2] 8 (#$ . 1771)])
#@290 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.

(fn L R TABLE)
(defalias 'set-case-syntax-delims #[771 "\211\211I\210\211\211I\210\300
\301\"\211\211I\210\211\211I\266\302
\303\304#\210\302
\305\304#\210\306\307\310!\311Q\312 #\210\306\313\310!\311Q\312 #\207" [case-table-get-table up set-char-table-extra-slot 1 nil 2 modify-syntax-entry "(" char-to-string "  " standard-syntax-table ")"] 8 (#$ . 2010)])
#@304 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.

(fn UC LC TABLE)
(defalias 'set-case-syntax-pair #[771 "\211I\210\211\211I\210\300
\301\"\211\211I\210\211I\266\302
\303\304#\210\302
\305\304#\210\306\307\310 #\210\306\307\310 #\207" [case-table-get-table up set-char-table-extra-slot 1 nil 2 modify-syntax-entry "w   " standard-syntax-table] 7 (#$ . 2660)])
#@151 Make character UC an upcase of character LC.
It also modifies `standard-syntax-table' to give them the syntax of
word constituents.

(fn UC LC TABLE)
(defalias 'set-upcase-syntax #[771 "\211\211I\210\300
\301\"\211\211I\210\211I\266\302
\303\304#\210\302
\305\304#\210\306\307\310 #\210\306\307\310 #\207" [case-table-get-table up set-char-table-extra-slot 1 nil 2 modify-syntax-entry "w   " standard-syntax-table] 7 (#$ . 3272)])
#@152 Make character LC a downcase of character UC.
It also modifies `standard-syntax-table' to give them the syntax of
word constituents.

(fn UC LC TABLE)
(defalias 'set-downcase-syntax #[771 "\211I\210\211\211I\210\300
\301\"\211\211I\266\302
\303\304#\210\302
\305\304#\210\306\307\310 #\210\306\307\310 #\207" [case-table-get-table up set-char-table-extra-slot 1 nil 2 modify-syntax-entry "w   " standard-syntax-table] 7 (#$ . 3717)])
#@275 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 "_".

(fn C SYNTAX TABLE)
(defalias 'set-case-syntax #[771 "\211\211I\210\300
\301\"\211\211I\266\302
\303\304#\210\302
\305\304#\210\306\307 #\207" [case-table-get-table up set-char-table-extra-slot 1 nil 2 modify-syntax-entry standard-syntax-table] 7 (#$ . 4165)])
(provide 'case-table)