From f88156d6dd0dd3690b0f86eeaf5830aae4443c48 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 2 Jun 2002 20:32:05 +0000 Subject: [PATCH] (set-case-syntax-pair): Test again for equal byte lengths of the pair. --- lisp/case-table.el | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) 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) -- 2.39.5