| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/case-table.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:50 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/case-table.el
;;; in Emacs version 24.3
;;; 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 #[nil "\306\307!\310\311\312 \"\210\212 r\313\314!q\210p\315 \210\n\316\211\317\211\317 \320 \210\321\322!\210+\211 \211 q\210\323!\210\324 \325!\210-\207" [description default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list make-char-table case-table map-char-table #[(key value) "\305!\204 :\203 \306\n \307#\207\n \307I\207\310\211 :\203( @ A\202, \211\f X\205^ \n\f\211\211\227U\204D \311\312\f\227!P\202U \f\211\226U\204T \313\312\f\226!P\202U \307I\210\fT\211\202- *\207" [value key description to from natnump set-char-table-range "case-invariant" nil "uppercase, matches " char-to-string "lowercase, matches "] 6] 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 inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 4 (#$ . 551) 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 (#$ . 1589)])
(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])
#@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) " \211I\210\n\211I\210\304!\211 \211I\210 \n\211I\210)\305\306\307#\210\305\310\307#\210\311 \312\313\n!\314Q\315 #\210\311\n\316\313 !\314Q\315 #\207" [table l r up get-upcase-table set-char-table-extra-slot 1 nil 2 modify-syntax-entry "(" char-to-string " " standard-syntax-table ")"] 6 (#$ . 2161)])
#@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\210\n\211I\210\304!\211 \211I\210 \n I\210)\305\306\307#\210\305\310\307#\210\311\n\312\313 #\210\311 \312\313 #\207" [table uc lc up get-upcase-table set-char-table-extra-slot 1 nil 2 modify-syntax-entry "w " standard-syntax-table] 5 (#$ . 2799)])
#@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) " \211I\210\304!\211 \211I\210\n I\210)\305\306\307#\210\305\310\307#\210\311 \312\313 #\210\311 \312\313 #\207" [table lc up uc get-upcase-table set-char-table-extra-slot 1 nil 2 modify-syntax-entry "w " standard-syntax-table] 5 (#$ . 3402)])
#@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) " \nI\210\n\211I\210\304!\211 \211I\210)\305\306\307#\210\305\310\307#\210\311\n\312\313 #\210\311 \312\313 #\207" [table uc lc up get-upcase-table set-char-table-extra-slot 1 nil 2 modify-syntax-entry "w " standard-syntax-table] 5 (#$ . 3838)])
#@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) " \211I\210\304!\211 \211I\210)\305\306\307#\210\305\310\307#\210\311 \312 #\207" [table c up syntax get-upcase-table set-char-table-extra-slot 1 nil 2 modify-syntax-entry standard-syntax-table] 5 (#$ . 4279)])
(provide 'case-table)