Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 65849:e7b6d13be107

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(lisp-font-lock-syntactic-face-function): Don't mark as docstring the 3rd elem of an unknown toplevel form.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 05 Oct 2005 14:07:18 +0000
parents 67e480d2dc8c
children c9b01535e163
comparison
equal deleted inserted replaced
65848:5bc62ce4d2f7 65849:e7b6d13be107
161 (scan-error nil)) 161 (scan-error nil))
162 (when (> n 0) 162 (when (> n 0)
163 (let ((sym (intern-soft 163 (let ((sym (intern-soft
164 (buffer-substring 164 (buffer-substring
165 (point) (progn (forward-sexp 1) (point)))))) 165 (point) (progn (forward-sexp 1) (point))))))
166 (eq n (or (get sym 'doc-string-elt) 3))))))) 166 (eq n (get sym 'doc-string-elt)))))))
167 font-lock-doc-face 167 font-lock-doc-face
168 font-lock-string-face) 168 font-lock-string-face)
169 font-lock-comment-face)) 169 font-lock-comment-face))
170 170
171 ;; The LISP-SYNTAX argument is used by code in inf-lisp.el and is 171 ;; The LISP-SYNTAX argument is used by code in inf-lisp.el and is