comparison lisp/emacs-lisp/lisp-mode.el @ 90128:13796b0653c7

Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-29 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 192-205) - Update from CVS - Use gdb-ui breakpoint faces on ttys too - Tweak gdb-ui breakpoint faces - Tweak info/.arch-inventory to identify info/.cvsignore as source - Clean up gdb-ui breakpoint faces
author Miles Bader <miles@gnu.org>
date Thu, 24 Mar 2005 18:41:26 +0000
parents 7e3f621f1dd4 7b87c7b7cc11
children 4da4a09e8b1b
comparison
equal deleted inserted replaced
90127:30ad2795fdab 90128:13796b0653c7
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 ()