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 ab6efd137e0acaf5e894c0c3e7b61152cdc982a2..6b0a0b69c03bceab5a72c6ecc776ae5e2b134352 100644 (file)
--- 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