From: Kenichi Handa <handa@m17n.org>
Date: Mon, 16 Nov 1998 06:26:27 +0000 (+0000)
Subject: Set syntaxes all non-word multibyte
X-Git-Tag: emacs-20.4~1226
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bbbc0af028beeee5c43c67c97d2225e263c43372;p=emacs.git

Set syntaxes all non-word multibyte
	characters to symbol.
---

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index ab6efd137e0..6b0a0b69c03 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -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