;;; compiled by jimb@wookumz.gnu.ai.mit.edu on Mon May 24 11:16:25 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/case-table.el ;;; emacs version 19.7.6. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (defalias 'describe-buffer-case-table #[nil "\"  WI !U*!!P@!U?!!P@I T ϐ!+" [make-vector 256 nil current-case-table 0 i case-table vector ch downcase "uppercase, matches " text-char-description upcase "lowercase, matches " "case-invariant" "*Help*" describe-vector] 7 "\ Describe the case table of the current buffer." nil]) (defalias 'set-case-syntax-delims #[(l r table) " I\nI \n!Q # \n!Q#\n !Q #\n !Q#" [table l r modify-syntax-entry "(" char-to-string " " standard-syntax-table text-mode-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', and `text-mode-syntax-table' to indicate left and right delimiters."]) (defalias 'set-case-syntax-pair #[(uc lc table) " \nI\nI\n #\n# # #" [table uc lc modify-syntax-entry "w " standard-syntax-table text-mode-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' and `text-mode-syntax-table' to indicate an (uppercase, lowercase) pair of letters."]) (defalias 'set-case-syntax #[(c syntax table) " I # #" [table c modify-syntax-entry syntax standard-syntax-table text-mode-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' and `text-mode-syntax-table'. SYNTAX should be \" \", \"w\", \".\" or \"_\"."]) (provide (quote case-table))