From: Dave Love <fx@gnu.org>
Date: Sun, 2 Jun 2002 20:32:05 +0000 (+0000)
Subject: (set-case-syntax-pair): Test again for equal byte
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~693
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f88156d6dd0dd3690b0f86eeaf5830aae4443c48;p=emacs.git

(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 00ea12b06fe..aca05141040 100644
--- 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)