diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-01-21 00:26:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-01-21 00:26:39 +0000 |
| commit | 6ad02d5f9f1dca3f5ede340d2b0a4e2a80640fa4 (patch) | |
| tree | 347ab1525d13c1aca5f8127533376da1dbb3e342 /lisp/case-table.el | |
| parent | e61b85336519a21c984490d16345c6aa1ed519c2 (diff) | |
| download | emacs-6ad02d5f9f1dca3f5ede340d2b0a4e2a80640fa4.tar.gz | |
Comment changes.
Diffstat (limited to 'lisp/case-table.el')
| -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." (setq lc (set-case-syntax-1 lc)) (aset table uc lc) (aset table lc lc) + ;; Clear out the extra slots so that they will be + ;; recomputed from the main (downcase) table. (set-char-table-extra-slot table 0 nil) (set-char-table-extra-slot table 1 nil) (set-char-table-extra-slot table 2 nil) @@ -124,6 +126,8 @@ It also modifies `standard-syntax-table'. SYNTAX should be \" \", \"w\", \".\" or \"_\"." (setq c (set-case-syntax-1 c)) (aset table c c) + ;; Clear out the extra slots so that they will be + ;; recomputed from the main (downcase) table. (set-char-table-extra-slot table 0 nil) (set-char-table-extra-slot table 1 nil) (set-char-table-extra-slot table 2 nil) |