# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 911197587 0
# Node ID b706421adbd54d413e2e77d5ce89bb070bc1b701
# Parent  b0c66c87b29bc32deafcf72128fdf2b55cd01e51
Set syntaxes all non-word multibyte
	characters to symbol.

diff -r b0c66c87b29b -r b706421adbd5 lisp/emacs-lisp/lisp-mode.el
--- a/lisp/emacs-lisp/lisp-mode.el	Mon Nov 16 06:26:27 1998 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Mon Nov 16 06:26:27 1998 +0000
@@ -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