# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1106267199 0
# Node ID 030542bf12bf51f71e4ccfc7c6e334dbb8d8271d
# Parent  45074d913d23925cfc8c0a054b8e49207c7d833b
Comment changes.

diff -r 45074d913d23 -r 030542bf12bf lisp/case-table.el
--- a/lisp/case-table.el	Thu Jan 20 18:13:48 2005 +0000
+++ b/lisp/case-table.el	Fri Jan 21 00:26:39 2005 +0000
@@ -110,6 +110,8 @@
   (setq lc (set-case-syntax-1 lc))
   (aset table uc lc)
   (aset table lc lc)
+  ;; Clear out the extra slots so that they will be
+  ;; recomputed from the main (downcase) table.
   (set-char-table-extra-slot table 0 nil)
   (set-char-table-extra-slot table 1 nil)
   (set-char-table-extra-slot table 2 nil)
@@ -124,6 +126,8 @@
 SYNTAX should be \" \", \"w\", \".\" or \"_\"."
   (setq c (set-case-syntax-1 c))
   (aset table c c)
+  ;; Clear out the extra slots so that they will be
+  ;; recomputed from the main (downcase) table.
   (set-char-table-extra-slot table 0 nil)
   (set-char-table-extra-slot table 1 nil)
   (set-char-table-extra-slot table 2 nil)