Mercurial > emacs
changeset 23723:b706421adbd5
Set syntaxes all non-word multibyte
characters to symbol.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 16 Nov 1998 06:26:27 +0000 |
| parents | b0c66c87b29b |
| children | a4722c0bd856 |
| files | lisp/emacs-lisp/lisp-mode.el |
| diffstat | 1 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el Mon Nov 16 06:26:27 1998 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Mon Nov 16 06:26:27 1998 +0000 @@ -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