(set-case-syntax-pair): Test again for equal byte

lengths of the pair.

diff --git a/lisp/case-table.el b/lisp/case-table.el
index 00ea12b06fe2b458fd0a6bbf6cb00f3c6b885605..aca05141040ef8641984b6ba7db64e61f538abed 100644 (file)
--- a/lisp/case-table.el
+++ b/lisp/case-table.el
@@ -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 @@ This sets the entries for characters UC and LC in TABLE, which is a string
 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)