/[emacs]/emacs/lisp/case-table.el
ViewVC logotype

Diff of /emacs/lisp/case-table.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by handa, Wed Feb 2 00:57:07 2005 UTC revision 1.30 by handa, Wed Feb 2 02:43:13 2005 UTC
# Line 140  It also modifies `standard-syntax-table' Line 140  It also modifies `standard-syntax-table'
140  word constituents."  word constituents."
141    (setq uc (set-case-syntax-1 uc))    (setq uc (set-case-syntax-1 uc))
142    (setq lc (set-case-syntax-1 lc))    (setq lc (set-case-syntax-1 lc))
143      (aset table lc lc)
144    (let ((up (get-upcase-table table)))    (let ((up (get-upcase-table table)))
145      (aset up uc uc)      (aset up uc uc)
146      (aset up lc uc))      (aset up lc uc))
# Line 158  word constituents." Line 159  word constituents."
159    (setq lc (set-case-syntax-1 lc))    (setq lc (set-case-syntax-1 lc))
160    (aset table uc lc)    (aset table uc lc)
161    (aset table lc lc)    (aset table lc lc)
162      (let ((up (get-upcase-table table)))
163        (aset up uc uc))
164    ;; Clear out the extra slots so that they will be    ;; Clear out the extra slots so that they will be
165    ;; recomputed from the main (downcase) table and upcase table.    ;; recomputed from the main (downcase) table and upcase table.
166    (set-char-table-extra-slot table 1 nil)    (set-char-table-extra-slot table 1 nil)

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26