[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/case-table.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/case-table.el |
Date: |
Tue, 01 Feb 2005 21:43:13 -0500 |
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)