From: Stefan Monnier <monnier@iro.umontreal.ca>
Cc: emacs-devel@gnu.org
Subject: Re: diary font-lock issue
Date: Wed, 17 May 2006 11:05:38 -0400 [thread overview]
Message-ID: <jwvr72ssno2.fsf-monnier+emacs@gnu.org> (raw)
In-Reply-To: <8jwtcmqvqm.fsf@fencepost.gnu.org> (Glenn Morris's message of "Tue, 16 May 2006 03:22:57 -0400")
> (setq foo-font-lock-keywords
> '(("\\(\\(?:Fri\\|Mon\\|S\\(?:atur\\|un\\)\\|\\(?:T\\(?:hur\\|ue\\)\\|Wedne\\)s\\)day\\), \\(A\\(?:pril\\|ugust\\)\\|December\\|February\\|J\\(?:anuary\\|u\\(?:ly\\|ne\\)\\)\\|Ma\\(?:rch\\|y\\)\\|\\(?:Novem\\|Octo\\|Septem\\)ber\\) [0-9]+, -?[0-9]+\n=+$" . font-lock-keyword-face)))
> (define-derived-mode foo-mode fundamental-mode
> "foo"
> (set (make-local-variable 'font-lock-defaults)
> '(foo-font-lock-keywords t))
> (set (make-local-variable 'font-lock-multiline) t))
I'd suggest the following 100% untested:
(define-derived-mode foo-mode fundamental-mode
"foo"
(set (make-local-variable 'font-lock-defaults)
'(foo-font-lock-keywords t nil nil nil
(font-lock-fontify-region-function
. foo-font-lock-fontify-region-function)
(font-lock-multiline . t))))
(defun foo-font-lock-fontify-region-function (beg end &optional loudly)
(goto-char beg)
(forward-line 0)
(if (looking-at "=+$") (setq beg (line-beginning-position 0)))
(goto-char end)
(unless (bolp) (forward-line 1))
(if (looking-at "=+$") (setq end (line-beginning-position 2)))
(font-lock-default-fontify-region beg end loudly))
-- Stefan
next prev parent reply other threads:[~2006-05-17 15:05 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
2006-05-16 7:22 diary font-lock issue Glenn Morris
2006-05-16 15:50 ` martin rudalics
2006-05-16 17:56 ` Glenn Morris
2006-05-16 21:42 ` martin rudalics
2006-05-17 15:11 ` Stefan Monnier
2006-05-17 15:05 ` Stefan Monnier [this message]
2006-05-17 19:11 ` Glenn Morris
2006-05-17 21:15 ` Stefan Monnier
2006-05-21 10:39 ` martin rudalics
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
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=jwvr72ssno2.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 public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).