Commit 9afd1c3c authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(set-upcase-syntax, set-downcase-syntax): Fix previous change.

parent 56072160
......@@ -140,6 +140,7 @@ It also modifies `standard-syntax-table' to give them the syntax of
word constituents."
(setq uc (set-case-syntax-1 uc))
(setq lc (set-case-syntax-1 lc))
(aset table lc lc)
(let ((up (get-upcase-table table)))
(aset up uc uc)
(aset up lc uc))
......@@ -158,6 +159,8 @@ word constituents."
(setq lc (set-case-syntax-1 lc))
(aset table uc lc)
(aset table lc lc)
(let ((up (get-upcase-table table)))
(aset up uc uc))
;; Clear out the extra slots so that they will be
;; recomputed from the main (downcase) table and upcase table.
(set-char-table-extra-slot table 1 nil)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment