Set syntaxes all non-word multibyte
characters to symbol.
This commit is contained in:
parent
b194460e44
commit
bbbc0af028
1 changed files with 9 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue