Mercurial > emacs
diff lisp/case-table.el @ 88710:059d379e7aee
(set-case-syntax-pair): Test again for equal byte
lengths of the pair.
author | Dave Love <fx@gnu.org> |
---|---|
date | Sun, 02 Jun 2002 20:32:05 +0000 |
parents | 40dcdefd77b0 |
children | 82f852ddca70 |
line wrap: on
line diff
--- a/lisp/case-table.el Sun Jun 02 20:31:23 2002 +0000 +++ b/lisp/case-table.el Sun Jun 02 20:32:05 2002 +0000 @@ -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 @@ 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)