# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 951264704 0
# Node ID f2abbe1d6b47f840eb9142f499ae089294b4b7df
# Parent  d46def731356c5020f7caee7d260cf3267acfb7c
Don't change syntax of multibyte
characters.
(lisp-mode-variables): Set multibyte-syntax-as-symbol to t
locally.

diff -r d46def731356 -r f2abbe1d6b47 lisp/emacs-lisp/lisp-mode.el
--- a/lisp/emacs-lisp/lisp-mode.el	Wed Feb 23 00:11:13 2000 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Wed Feb 23 00:11:44 2000 +0000
@@ -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 @@
   (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."