diff options
| -rw-r--r-- | lisp/case-table.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/case-table.el b/lisp/case-table.el index 1936977c779..094c1d6e62a 100644 --- a/lisp/case-table.el +++ b/lisp/case-table.el | |||
| @@ -110,6 +110,8 @@ word constituents." | |||
| 110 | (setq lc (set-case-syntax-1 lc)) | 110 | (setq lc (set-case-syntax-1 lc)) |
| 111 | (aset table uc lc) | 111 | (aset table uc lc) |
| 112 | (aset table lc lc) | 112 | (aset table lc lc) |
| 113 | ;; Clear out the extra slots so that they will be | ||
| 114 | ;; recomputed from the main (downcase) table. | ||
| 113 | (set-char-table-extra-slot table 0 nil) | 115 | (set-char-table-extra-slot table 0 nil) |
| 114 | (set-char-table-extra-slot table 1 nil) | 116 | (set-char-table-extra-slot table 1 nil) |
| 115 | (set-char-table-extra-slot table 2 nil) | 117 | (set-char-table-extra-slot table 2 nil) |
| @@ -124,6 +126,8 @@ It also modifies `standard-syntax-table'. | |||
| 124 | SYNTAX should be \" \", \"w\", \".\" or \"_\"." | 126 | SYNTAX should be \" \", \"w\", \".\" or \"_\"." |
| 125 | (setq c (set-case-syntax-1 c)) | 127 | (setq c (set-case-syntax-1 c)) |
| 126 | (aset table c c) | 128 | (aset table c c) |
| 129 | ;; Clear out the extra slots so that they will be | ||
| 130 | ;; recomputed from the main (downcase) table. | ||
| 127 | (set-char-table-extra-slot table 0 nil) | 131 | (set-char-table-extra-slot table 0 nil) |
| 128 | (set-char-table-extra-slot table 1 nil) | 132 | (set-char-table-extra-slot table 1 nil) |
| 129 | (set-char-table-extra-slot table 2 nil) | 133 | (set-char-table-extra-slot table 2 nil) |