[Emacs-diffs] Changes to emacs/lisp/case-table.el

[Kenichi Handa]

Index: emacs/lisp/case-table.el
diff -c emacs/lisp/case-table.el:1.29 emacs/lisp/case-table.el:1.30
*** emacs/lisp/case-table.el:1.29       Wed Feb  2 00:57:07 2005
--- emacs/lisp/case-table.el    Wed Feb  2 02:43:13 2005
***************
*** 140,145 ****
--- 140,146 ----
  word constituents."
    (setq uc (set-case-syntax-1 uc))
    (setq lc (set-case-syntax-1 lc))
+   (aset table lc lc)
    (let ((up (get-upcase-table table)))
      (aset up uc uc)
      (aset up lc uc))
***************
*** 158,163 ****
--- 159,166 ----
    (setq lc (set-case-syntax-1 lc))
    (aset table uc lc)
    (aset table lc lc)
+   (let ((up (get-upcase-table table)))
+     (aset up uc uc))
    ;; Clear out the extra slots so that they will be
    ;; recomputed from the main (downcase) table and upcase table.
    (set-char-table-extra-slot table 1 nil)