Mercurial > emacs

changeset 27814:f2abbe1d6b47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Don't change syntax of multibyte characters. (lisp-mode-variables): Set multibyte-syntax-as-symbol to t locally.
author Kenichi Handa <handa@m17n.org>
date Wed, 23 Feb 2000 00:11:44 +0000
parents d46def731356
children 24bd298ac51a
files lisp/emacs-lisp/lisp-mode.el
diffstat 1 files changed, 4 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- 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."