Current File : //usr/local/share/emacs/27.2/lisp/case-table.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@48 Describe the case table of the current buffer.
(defalias 'describe-buffer-case-table #[0 "\306\307!\310\311\312\313\314\315!\316\"\317\320%\321 \"\210\212r\322\323!q\210p\324 \210\325\211\326\211\326 \327 \210\330\331!\210+\211 \211q\210\332!\210\333 \334!\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-byte-code 514 "\301!\204 :\203 \302\300\303#\207\300\303I\207\304\211:\203( @\262A\262\202. \211\262\262X\205` \300\211\211\227U\204F \305\306\227!P\202W \211\226U\204V \307\306\226!P\202W \303I\210T\262\202. \207" vconcat vector [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] 9 (#$ . 408) 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 \2061 \302\"\2061 \303 \304\305\306\307\310\"\311\"\312$\216\313!\210\302\")\262\207" [((up . 0) (canon . 1) (eqv . 2)) down char-table-extra-slot standard-case-table make-byte-code 0 "\300\301=\206 \302\301!\207" vconcat vector [set-standard-case-table] 2 set-standard-case-table] 11 (#$ . 1469)])
#@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 (#$ . 1950)])
(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 (#$ . 2169)])
#@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 (#$ . 2408)])
#@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 (#$ . 3058)])
#@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 (#$ . 3670)])
#@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 (#$ . 4115)])
#@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 (#$ . 4563)])
(provide 'case-table)
Mini Shell