diff options
| author | Kenichi Handa <handa@m17n.org> | 2000-02-23 00:11:44 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2000-02-23 00:11:44 +0000 |
| commit | 1d3529b69fae039d04cd727efd1d2336685a0c47 (patch) | |
| tree | ea78732722862e802739fddda0562389e4940366 /lisp/emacs-lisp | |
| parent | 214f877f4d0fda5e395c297e5a2c6c9a25530951 (diff) | |
| download | emacs-1d3529b69fae039d04cd727efd1d2336685a0c47.tar.gz emacs-1d3529b69fae039d04cd727efd1d2336685a0c47.tar.bz2 emacs-1d3529b69fae039d04cd727efd1d2336685a0c47.zip | |
Don't change syntax of multibyte
characters.
(lisp-mode-variables): Set multibyte-syntax-as-symbol to t
locally.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 9d7cd8a75fd..d82c71c263d 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -67,15 +67,7 @@ (modify-syntax-entry ?\( "() " table) (modify-syntax-entry ?\) ")( " table) (modify-syntax-entry ?\[ "(] " table) - (modify-syntax-entry ?\] ")[ " 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 "_ " - table)))) - (standard-syntax-table))) + (modify-syntax-entry ?\] ")[ " table)) table)) (defvar lisp-mode-syntax-table @@ -144,7 +136,9 @@ ine-condition\\|ine-widget\\|face\\)\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)") (make-local-variable 'comment-indent-function) (setq comment-indent-function 'lisp-comment-indent) (make-local-variable 'imenu-generic-expression) - (setq imenu-generic-expression lisp-imenu-generic-expression)) + (setq imenu-generic-expression lisp-imenu-generic-expression) + (make-local-variable 'multibyte-syntax-as-symbol) + (setq multibyte-syntax-as-symbol t)) (defun lisp-outline-level () "Lisp mode `outline-level' function." |