From: Kenichi Handa <handa@m17n.org>
Date: Wed, 23 Feb 2000 00:11:44 +0000 (+0000)
Subject: Don't change syntax of multibyte
X-Git-Tag: emacs-pretest-21.0.90~4929
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d3529b69fae039d04cd727efd1d2336685a0c47;p=emacs.git

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 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."