From 9afd1c3cafe0e6b0df3833bdbe35fe0b39f7e521 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 2 Feb 2005 02:43:13 +0000 Subject: [PATCH] (set-upcase-syntax, set-downcase-syntax): Fix previous change. --- lisp/case-table.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/case-table.el b/lisp/case-table.el index 77ebe857ff2..e9697655f38 100644 --- a/lisp/case-table.el +++ b/lisp/case-table.el @@ -140,6 +140,7 @@ It also modifies `standard-syntax-table' to give them the syntax of 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,6 +159,8 @@ word constituents." (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) -- 2.39.5