# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 711952452 0
# Node ID 08045dee5b711defcd14d08e8b8f7f36c403dfb0
# Parent  5f325fbc093d2dff402ad6c5e0c307c45ee66acb
entered into RCS

diff -r 5f325fbc093d -r 08045dee5b71 lisp/case-table.el
--- a/lisp/case-table.el	Fri Jul 24 03:49:00 1992 +0000
+++ b/lisp/case-table.el	Fri Jul 24 04:34:12 1992 +0000
@@ -48,9 +48,9 @@
 		   (concat "lowercase, matches "
 			   (text-char-description (upcase ch))))
 		  (t "case-invariant")))
-      (setq i (1+ i))))
-  (with-output-to-temp-buffer "*Help*"
-    (describe-vector vector)))
+      (setq i (1+ i)))
+    (with-output-to-temp-buffer "*Help*"
+      (describe-vector vector))))
 
 (defun set-case-syntax-delims (l r string)
   "Make characters L and R a matching pair of non-case-converting delimiters.