From: Stefan Monnier <monnier@iro.umontreal.ca>
Cc: emacs-devel@gnu.org
Subject: Re: Face specifications in font-lock-keywords (part II).
Date: Thu, 07 Apr 2005 11:32:41 -0400 [thread overview]
Message-ID: <jwvfyy27geg.fsf-monnier+emacs@gnu.org> (raw)
In-Reply-To: <878y3uww2k.fsf@xs4all.nl> (Lute Kamstra's message of "Thu, 07 Apr 2005 15:33:23 +0200")
> Does that mean that Font Lock erroneously strips the quote in the
> first case?
Looks like it. And looks like it's done on purpose, although I don't know
what this purpose is:
(defun font-lock-compile-keyword (keyword)
(cond ((nlistp keyword) ; MATCHER
(list keyword '(0 font-lock-keyword-face)))
((eq (car keyword) 'eval) ; (eval . FORM)
(font-lock-compile-keyword (eval (cdr keyword))))
((eq (car-safe (cdr keyword)) 'quote) ; (MATCHER . 'FORM)
;; If FORM is a FACENAME then quote it. Otherwise ignore the quote.
(if (symbolp (nth 2 keyword))
(list (car keyword) (list 0 (cdr keyword)))
(font-lock-compile-keyword (cons (car keyword) (nth 2 keyword)))))
((numberp (cdr keyword)) ; (MATCHER . MATCH)
(list (car keyword) (list (cdr keyword) 'font-lock-keyword-face)))
((symbolp (cdr keyword)) ; (MATCHER . FACENAME)
(list (car keyword) (list 0 (cdr keyword))))
((nlistp (nth 1 keyword)) ; (MATCHER . HIGHLIGHT)
(list (car keyword) (cdr keyword)))
(t ; (MATCHER HIGHLIGHT ...)
keyword)))
-- Stefan
prev parent reply other threads:[~2005-04-07 15:32 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-04-07 10:35 Face specifications in font-lock-keywords (part II) Lute Kamstra
2005-04-07 11:34 ` Kim F. Storm
2005-04-07 12:06 ` Lute Kamstra
2005-04-07 13:01 ` Stefan Monnier
2005-04-07 13:33 ` Lute Kamstra
2005-04-07 15:32 ` Stefan Monnier [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=jwvfyy27geg.fsf-monnier+emacs@gnu.org \
--to=monnier@iro.umontreal.ca \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.