Don't change syntax of multibyte

characters.
(lisp-mode-variables): Set multibyte-syntax-as-symbol to t
locally.

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 9d7cd8a75fdff60794d31cc10b0a8ac65e86668b..d82c71c263df0c0b1615c6185bf0e67c616f87cc 100644 (file)
--- 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."