# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1023049925 0
# Node ID 059d379e7aee842f21d3ae7521a7fb146526f487
# Parent  972123cad1be62e5bf6ed8ccc8ca615d2bebc33b
(set-case-syntax-pair): Test again for equal byte
lengths of the pair.

diff -r 972123cad1be -r 059d379e7aee lisp/case-table.el
--- a/lisp/case-table.el	Sun Jun 02 20:31:23 2002 +0000
+++ b/lisp/case-table.el	Sun Jun 02 20:32:05 2002 +0000
@@ -25,13 +25,6 @@
 
 ;;; Commentary:
 
-;; Written by:
-;; TN/ETX/TX/UMG Howard Gayle        UUCP : seismo!enea!erix!howard
-;; Telefonaktiebolaget L M Ericsson  Phone: +46 8 719 55 65
-;; Ericsson Telecom     	     Telex: 14910 ERIC S
-;; S-126 25 Stockholm                FAX  : +46 8 719 64 82
-;; Sweden
-
 ;;; Code:
 
 (defvar set-case-syntax-set-multibyte nil)
@@ -93,6 +86,10 @@
 that will be used as the downcase part of a case table.
 It also modifies `standard-syntax-table' to give them the syntax of
 word constituents."
+  (let ((lu (length (string-as-unibyte (string uc))))
+	(ll (length (string-as-unibyte (string lc)))))
+    (unless (= lu ll)
+      (error "Can't casify chars with different `charset-bytes' values")))
   (aset table uc lc)
   (aset table lc lc)
   (set-char-table-extra-slot table 0 nil)