;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 3 21:45:56 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/case-table.el ;;; emacs version 19.22.92.2. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/case-table.el' was compiled for Emacs 19")) (defalias 'describe-buffer-case-table #[nil "\"\fW9 \fU\f!P0\fU/\f!P0I\fTʐ q !+" [make-vector 256 nil 0 ch vector "uppercase, matches " char-to-string "lowercase, matches " "case-invariant" "*Help*" standard-output describe-vector] 6 "\ Describe the case table of the current buffer." nil]) (defalias 'set-case-syntax-delims #[(l r table) " I\nI \n!Q #\n !Q #" [table l r modify-syntax-entry "(" char-to-string " " standard-syntax-table ")"] 5 "\ 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-pair #[(uc lc table) " \nI\nI\n # #" [table uc lc modify-syntax-entry "w " standard-syntax-table] 4 "\ 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 #[(c syntax table) " I #" [table c modify-syntax-entry syntax standard-syntax-table] 4 "\ Make characters C case-invariant with syntax SYNTAX. This sets the entries 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 \"_\"."]) (provide (quote case-table))