25 |
|
|
26 |
;;; Commentary: |
;;; Commentary: |
27 |
|
|
|
;; 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 |
|
|
|
|
28 |
;;; Code: |
;;; Code: |
29 |
|
|
30 |
(defvar set-case-syntax-set-multibyte nil) |
(defvar set-case-syntax-set-multibyte nil) |
86 |
that will be used as the downcase part of a case table. |
that will be used as the downcase part of a case table. |
87 |
It also modifies `standard-syntax-table' to give them the syntax of |
It also modifies `standard-syntax-table' to give them the syntax of |
88 |
word constituents." |
word constituents." |
89 |
|
(let ((lu (length (string-as-unibyte (string uc)))) |
90 |
|
(ll (length (string-as-unibyte (string lc))))) |
91 |
|
(unless (= lu ll) |
92 |
|
(error "Can't casify chars with different `charset-bytes' values"))) |
93 |
(aset table uc lc) |
(aset table uc lc) |
94 |
(aset table lc lc) |
(aset table lc lc) |
95 |
(set-char-table-extra-slot table 0 nil) |
(set-char-table-extra-slot table 0 nil) |