mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

(set-case-syntax-pair): Remove check on byte

Browse source 
lengths.
This commit is contained in:
Dave Love 2002-09-07 23:54:43 +00:00
parent f4e0b4349c
commit 3da49758ca
1 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/case-table.el
View file

@ -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)