From 3da49758ca6446933a6d3aec7786e64c3a50164a Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sat, 7 Sep 2002 23:54:43 +0000 Subject: [PATCH] (set-case-syntax-pair): Remove check on byte lengths. --- lisp/case-table.el | 4 ---- 1 file changed, 4 deletions(-) diff --git a/lisp/case-table.el b/lisp/case-table.el index 51c9c444ddd..50458353970 100644 --- a/lisp/case-table.el +++ b/lisp/case-table.el @@ -88,10 +88,6 @@ 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