;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:48:00 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/case-table.el ;;; in Emacs version 23.4 ;;; 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 "\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) "\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 "*Help*" describe-vector help-mode] 3 (#$ . 538) 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 (#$ . 1222)]) (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 (#$ . 1794)]) #@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 (#$ . 2432)]) #@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 (#$ . 3035)]) #@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 (#$ . 3471)]) #@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 (#$ . 3912)]) (provide 'case-table)