Mercurial > emacs
changeset 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 | 972123cad1be |
| children | f3dce8f75e38 |
| files | lisp/case-table.el |
| diffstat | 1 files changed, 4 insertions(+), 7 deletions(-) [+] |
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)