procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't change syntax of multibyte

Browse source 
characters.
(lisp-mode-variables): Set multibyte-syntax-as-symbol to t
locally.
This commit is contained in:
Kenichi Handa 2000-02-23 00:11:44 +00:00
parent 214f877f4d
commit 1d3529b69f
1 changed files with 4 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/emacs-lisp/lisp-mode.el
View file

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