Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 60738:7b87c7b7cc11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(lisp-mode-variables): Recognize `@' in function names.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 19 Mar 2005 14:00:44 +0000
parents 65b1f2f4ce8f
children 70004c876c48 13796b0653c7
comparison
equal deleted inserted replaced
60737:d76d52e273c9 60738:7b87c7b7cc11
203 (setq multibyte-syntax-as-symbol t) 203 (setq multibyte-syntax-as-symbol t)
204 (set (make-local-variable 'syntax-begin-function) 'beginning-of-defun) 204 (set (make-local-variable 'syntax-begin-function) 'beginning-of-defun)
205 (setq font-lock-defaults 205 (setq font-lock-defaults
206 '((lisp-font-lock-keywords 206 '((lisp-font-lock-keywords
207 lisp-font-lock-keywords-1 lisp-font-lock-keywords-2) 207 lisp-font-lock-keywords-1 lisp-font-lock-keywords-2)
208 nil nil (("+-*/.<>=!?$%_&~^:" . "w")) nil 208 nil nil (("+-*/.<>=!?$%_&~^:@" . "w")) nil
209 (font-lock-mark-block-function . mark-defun) 209 (font-lock-mark-block-function . mark-defun)
210 (font-lock-syntactic-face-function 210 (font-lock-syntactic-face-function
211 . lisp-font-lock-syntactic-face-function)))) 211 . lisp-font-lock-syntactic-face-function))))
212 212
213 (defun lisp-outline-level () 213 (defun lisp-outline-level ()