diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-11-16 06:26:27 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-11-16 06:26:27 +0000 |
| commit | bbbc0af028beeee5c43c67c97d2225e263c43372 (patch) | |
| tree | de6df5302cc426147b84c039a358957ad604a8ce /lisp/emacs-lisp/lisp-mode.el | |
| parent | b194460e44b22c557d067062387a548774836d26 (diff) | |
| download | emacs-bbbc0af028beeee5c43c67c97d2225e263c43372.tar.gz emacs-bbbc0af028beeee5c43c67c97d2225e263c43372.tar.bz2 emacs-bbbc0af028beeee5c43c67c97d2225e263c43372.zip | |
Set syntaxes all non-word multibyte
characters to symbol.
Diffstat (limited to 'lisp/emacs-lisp/lisp-mode.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index ab6efd137e0..6b0a0b69c03 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -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 |