diff options
| author | Dave Love <fx@gnu.org> | 2002-09-07 23:54:43 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2002-09-07 23:54:43 +0000 |
| commit | 3da49758ca6446933a6d3aec7786e64c3a50164a (patch) | |
| tree | b7eeda3882854897933a5a8514ba9eb1810c3e08 /lisp/case-table.el | |
| parent | f4e0b4349cb12b2728da58f6e08946db1e89bd0b (diff) | |
| download | emacs-3da49758ca6446933a6d3aec7786e64c3a50164a.tar.gz | |
(set-case-syntax-pair): Remove check on byte
lengths.
Diffstat (limited to 'lisp/case-table.el')
| -rw-r--r-- | lisp/case-table.el | 4 |
1 files changed, 0 insertions, 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) |