martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Comment changes.

Browse Source
This commit is contained in:
Richard M. Stallman
2005-01-21 00:26:39 +00:00
parent a15252fdfb
commit 2cf2fc27c8
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/case-table.el
View File

@@ -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)