From: Raffaele Ricciardi <rfflrccrd@gmail.com>
To: help-gnu-emacs@gnu.org
Subject: font-lock-keywords: matcher function not working
Date: Thu, 27 Jun 2013 14:39:17 +0200 [thread overview]
Message-ID: <b32q3mFaebrU1@mid.individual.net> (raw)
Hello everybody,
I'm trying to highlight the first parenthesis of each line in Lisp code.
After having read the documentation of `font-lock-keywords', I've
written a matcher function which behaves as required (I've tested it
with `eval-expression'). However, first parentheses are not
highlighted.
Here is my code, tested on GNU Emacs 24.3
;; Tested in the *scratch* buffer after "emacs -Q".
(require 'cl)
(defun* rr-first-non-blank? (&optional (point (point)))
"Return non-NIL if POINT is on the first non-blank character of the
current line."
(= point
(save-excursion
(back-to-indentation)
(point))))
(defun rr-match-indented-paren (^end)
"Matcher for `font-lock-keywords' that matches a parenthesis made
redundant by indentation."
(if (and (eql (char-after) ?\()
(rr-first-non-blank?))
(re-search-forward "(" ^end)
nil))
(font-lock-add-keywords 'lisp-interaction-mode
'(
(rr-match-indented-paren .
'font-lock-warning-face)
))
(font-lock-fontify-buffer)
next reply other threads:[~2013-06-27 12:39 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-06-27 12:39 Raffaele Ricciardi [this message]
2013-06-27 12:40 ` font-lock-keywords: matcher function not working Raffaele Ricciardi
2013-06-27 17:32 ` Stefan Monnier
[not found] ` <mailman.2602.1372354403.22516.help-gnu-emacs@gnu.org>
2013-06-28 10:43 ` rfflrccrd
2013-06-28 19:30 ` Stefan Monnier
[not found] ` <mailman.2731.1372447819.22516.help-gnu-emacs@gnu.org>
2013-06-28 20:50 ` Raffaele Ricciardi
2013-06-29 2:35 ` Stefan Monnier
[not found] ` <mailman.2762.1372473348.22516.help-gnu-emacs@gnu.org>
2013-06-29 8:53 ` Raffaele Ricciardi
2013-06-29 13:32 ` Raffaele Ricciardi
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=b32q3mFaebrU1@mid.individual.net \
--to=rfflrccrd@gmail.com \
--cc=help-gnu-emacs@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.