Mercurial > emacs

comparison lisp/case-table.el @ 59659:030542bf12bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Comment changes.
author Richard M. Stallman <rms@gnu.org>
date Fri, 21 Jan 2005 00:26:39 +0000
parents 695cf19ef79e
children e1f57074406e 6d92d69fae33
comparison
equal deleted inserted replaced
59658:45074d913d23 59659:030542bf12bf
108 (error "Can't casify chars with different `charset-bytes' values")) 108 (error "Can't casify chars with different `charset-bytes' values"))
109 (setq uc (set-case-syntax-1 uc)) 109 (setq uc (set-case-syntax-1 uc))
110 (setq lc (set-case-syntax-1 lc)) 110 (setq lc (set-case-syntax-1 lc))
111 (aset table uc lc) 111 (aset table uc lc)
112 (aset table lc lc) 112 (aset table lc lc)
113 ;; Clear out the extra slots so that they will be
114 ;; recomputed from the main (downcase) table.
113 (set-char-table-extra-slot table 0 nil) 115 (set-char-table-extra-slot table 0 nil)
114 (set-char-table-extra-slot table 1 nil) 116 (set-char-table-extra-slot table 1 nil)
115 (set-char-table-extra-slot table 2 nil) 117 (set-char-table-extra-slot table 2 nil)
116 (modify-syntax-entry lc "w " (standard-syntax-table)) 118 (modify-syntax-entry lc "w " (standard-syntax-table))
117 (modify-syntax-entry uc "w " (standard-syntax-table))) 119 (modify-syntax-entry uc "w " (standard-syntax-table)))
122 that will be used as the downcase part of a case table. 124 that will be used as the downcase part of a case table.
123 It also modifies `standard-syntax-table'. 125 It also modifies `standard-syntax-table'.
124 SYNTAX should be \" \", \"w\", \".\" or \"_\"." 126 SYNTAX should be \" \", \"w\", \".\" or \"_\"."
125 (setq c (set-case-syntax-1 c)) 127 (setq c (set-case-syntax-1 c))
126 (aset table c c) 128 (aset table c c)
129 ;; Clear out the extra slots so that they will be
130 ;; recomputed from the main (downcase) table.
127 (set-char-table-extra-slot table 0 nil) 131 (set-char-table-extra-slot table 0 nil)
128 (set-char-table-extra-slot table 1 nil) 132 (set-char-table-extra-slot table 1 nil)
129 (set-char-table-extra-slot table 2 nil) 133 (set-char-table-extra-slot table 2 nil)
130 (modify-syntax-entry c syntax (standard-syntax-table))) 134 (modify-syntax-entry c syntax (standard-syntax-table)))
131 135