Set syntaxes all non-word multibyte

characters to symbol.
This commit is contained in:
Kenichi Handa 1998-11-16 06:26:27 +00:00
parent b194460e44
commit bbbc0af028

View file

@ -69,7 +69,15 @@
(modify-syntax-entry ?\( "() " emacs-lisp-mode-syntax-table)
(modify-syntax-entry ?\) ")( " emacs-lisp-mode-syntax-table)
(modify-syntax-entry ?\[ "(] " emacs-lisp-mode-syntax-table)
(modify-syntax-entry ?\] ")[ " emacs-lisp-mode-syntax-table)))
(modify-syntax-entry ?\] ")[ " emacs-lisp-mode-syntax-table)
;; All non-word multibyte characters should be `symbol'.
(map-char-table
(function (lambda (key val)
(and (>= key 256)
(/= (char-syntax key) ?w)
(modify-syntax-entry key "_ "
emacs-lisp-mode-syntax-table))))
(standard-syntax-table))))
(if (not lisp-mode-syntax-table)
(progn (setq lisp-mode-syntax-table