Mercurial > emacs
changeset 59659:030542bf12bf
Comment changes.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 21 Jan 2005 00:26:39 +0000 |
| parents | 45074d913d23 |
| children | 5ee7eaad2958 |
| files | lisp/case-table.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/case-table.el Thu Jan 20 18:13:48 2005 +0000 +++ b/lisp/case-table.el Fri Jan 21 00:26:39 2005 +0000 @@ -110,6 +110,8 @@ (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 @@ 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)