From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 16 Dec 2001 03:45:57 +0000 (+0000)
Subject: (set-case-syntax-pair): Detect invalid calls and signal an error.
X-Git-Tag: ttn-vms-21-2-B4~17697
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b5cf8df800262751858adf058cb3e43a99a47e38;p=emacs.git

(set-case-syntax-pair): Detect invalid calls and signal an error.
---

diff --git a/lisp/case-table.el b/lisp/case-table.el
index 265f9519689..f83123bf19f 100644
--- a/lisp/case-table.el
+++ b/lisp/case-table.el
@@ -103,6 +103,9 @@ 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."
+  (unless (= (charset-bytes (char-charset uc))
+	     (charset-bytes (char-charset lc)))
+    (error "Can't casify chars with different `charset-bytes' values"))
   (setq uc (set-case-syntax-1 uc))
   (setq lc (set-case-syntax-1 lc))
   (aset table uc lc)