Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 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 46468edab05e
children 8c28c1c31e9b
comparison
equal deleted inserted replaced
27813:d46def731356 27814:f2abbe1d6b47
65 (modify-syntax-entry ?\" "\" " table) 65 (modify-syntax-entry ?\" "\" " table)
66 (modify-syntax-entry ?\\ "\\ " table) 66 (modify-syntax-entry ?\\ "\\ " table)
67 (modify-syntax-entry ?\( "() " table) 67 (modify-syntax-entry ?\( "() " table)
68 (modify-syntax-entry ?\) ")( " table) 68 (modify-syntax-entry ?\) ")( " table)
69 (modify-syntax-entry ?\[ "(] " table) 69 (modify-syntax-entry ?\[ "(] " table)
70 (modify-syntax-entry ?\] ")[ " table) 70 (modify-syntax-entry ?\] ")[ " table))
71 ;; All non-word multibyte characters should be `symbol'.
72 (map-char-table
73 (function (lambda (key val)
74 (and (>= key 256)
75 (/= (char-syntax key) ?w)
76 (modify-syntax-entry key "_ "
77 table))))
78 (standard-syntax-table)))
79 table)) 71 table))
80 72
81 (defvar lisp-mode-syntax-table 73 (defvar lisp-mode-syntax-table
82 (let ((table (copy-syntax-table emacs-lisp-mode-syntax-table))) 74 (let ((table (copy-syntax-table emacs-lisp-mode-syntax-table)))
83 (modify-syntax-entry ?\| "\" " table) 75 (modify-syntax-entry ?\| "\" " table)
142 (make-local-variable 'comment-column) 134 (make-local-variable 'comment-column)
143 (setq comment-column 40) 135 (setq comment-column 40)
144 (make-local-variable 'comment-indent-function) 136 (make-local-variable 'comment-indent-function)
145 (setq comment-indent-function 'lisp-comment-indent) 137 (setq comment-indent-function 'lisp-comment-indent)
146 (make-local-variable 'imenu-generic-expression) 138 (make-local-variable 'imenu-generic-expression)
147 (setq imenu-generic-expression lisp-imenu-generic-expression)) 139 (setq imenu-generic-expression lisp-imenu-generic-expression)
140 (make-local-variable 'multibyte-syntax-as-symbol)
141 (setq multibyte-syntax-as-symbol t))
148 142
149 (defun lisp-outline-level () 143 (defun lisp-outline-level ()
150 "Lisp mode `outline-level' function." 144 "Lisp mode `outline-level' function."
151 (if (looking-at "(") 145 (if (looking-at "(")
152 1000 146 1000