From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 21 Jan 2005 00:26:39 +0000 (+0000)
Subject: Comment changes.
X-Git-Tag: ttn-vms-21-2-B4~2652
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2cf2fc27c89fdfc244416eebcdc30ca7c1234561;p=emacs.git

Comment changes.
---

diff --git a/lisp/case-table.el b/lisp/case-table.el
index 1936977c779..094c1d6e62a 100644
--- a/lisp/case-table.el
+++ b/lisp/case-table.el
@@ -110,6 +110,8 @@ word constituents."
   (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 @@ It also modifies `standard-syntax-table'.
 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)