diff options
| author | Kenichi Handa | 2005-02-13 00:40:05 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2005-02-13 00:40:05 +0000 |
| commit | 2e46e8747404b508a830101008e4ad4efe7cb83a (patch) | |
| tree | abbff1812c64133227f886568fc529b1aa9a6e28 | |
| parent | a359f0e0ff878285654e2f0bcc7bd3b4340c778c (diff) | |
| download | emacs-2e46e8747404b508a830101008e4ad4efe7cb83a.tar.gz emacs-2e46e8747404b508a830101008e4ad4efe7cb83a.zip | |
Adjust codes merged from trunk for unicode
branch (for the change on 2005-02-02).
| -rw-r--r-- | lisp/case-table.el | 36 |
1 files changed, 34 insertions, 2 deletions
diff --git a/lisp/case-table.el b/lisp/case-table.el index c3da621a9dd..cb2f3e31723 100644 --- a/lisp/case-table.el +++ b/lisp/case-table.el | |||
| @@ -112,9 +112,41 @@ It also modifies `standard-syntax-table' to give them the syntax of | |||
| 112 | word constituents." | 112 | word constituents." |
| 113 | (aset table uc lc) | 113 | (aset table uc lc) |
| 114 | (aset table lc lc) | 114 | (aset table lc lc) |
| 115 | (let ((up (get-upcase-table table))) | ||
| 116 | (aset up uc uc) | ||
| 117 | (aset up lc uc)) | ||
| 115 | ;; Clear out the extra slots so that they will be | 118 | ;; Clear out the extra slots so that they will be |
| 116 | ;; recomputed from the main (downcase) table. | 119 | ;; recomputed from the main (downcase) table and upcase table. |
| 117 | (set-char-table-extra-slot table 0 nil) | 120 | (set-char-table-extra-slot table 1 nil) |
| 121 | (set-char-table-extra-slot table 2 nil) | ||
| 122 | (modify-syntax-entry lc "w " (standard-syntax-table)) | ||
| 123 | (modify-syntax-entry uc "w " (standard-syntax-table))) | ||
| 124 | |||
| 125 | (defun set-upcase-syntax (uc lc table) | ||
| 126 | "Make character UC an upcase of character LC. | ||
| 127 | It also modifies `standard-syntax-table' to give them the syntax of | ||
| 128 | word constituents." | ||
| 129 | (aset table lc lc) | ||
| 130 | (let ((up (get-upcase-table table))) | ||
| 131 | (aset up uc uc) | ||
| 132 | (aset up lc uc)) | ||
| 133 | ;; Clear out the extra slots so that they will be | ||
| 134 | ;; recomputed from the main (downcase) table and upcase table. | ||
| 135 | (set-char-table-extra-slot table 1 nil) | ||
| 136 | (set-char-table-extra-slot table 2 nil) | ||
| 137 | (modify-syntax-entry lc "w " (standard-syntax-table)) | ||
| 138 | (modify-syntax-entry uc "w " (standard-syntax-table))) | ||
| 139 | |||
| 140 | (defun set-downcase-syntax (uc lc table) | ||
| 141 | "Make character LC a downcase of character UC. | ||
| 142 | It also modifies `standard-syntax-table' to give them the syntax of | ||
| 143 | word constituents." | ||
| 144 | (aset table uc lc) | ||
| 145 | (aset table lc lc) | ||
| 146 | (let ((up (get-upcase-table table))) | ||
| 147 | (aset up uc uc)) | ||
| 148 | ;; Clear out the extra slots so that they will be | ||
| 149 | ;; recomputed from the main (downcase) table and upcase table. | ||
| 118 | (set-char-table-extra-slot table 1 nil) | 150 | (set-char-table-extra-slot table 1 nil) |
| 119 | (set-char-table-extra-slot table 2 nil) | 151 | (set-char-table-extra-slot table 2 nil) |
| 120 | (modify-syntax-entry lc "w " (standard-syntax-table)) | 152 | (modify-syntax-entry lc "w " (standard-syntax-table)) |