From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: lawrence mitchell <wence@gmx.li>
Newsgroups: gmane.emacs.help
Subject: Re: Font-lock with newcomment.el
Date: Fri, 30 May 2003 12:45:24 +0100
Organization: funfunfun
Sender: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org
Message-ID: <?fnord?87u1bcfyjv.fsf@ID-97657.usr.dfncis.de>
References: <eyubrxl68jv.fsf@canonmills.inf.ed.ac.uk>
	<5lhe7dpslh.fsf@rum.cs.yale.edu>
	<eyu7k88662u.fsf@canonmills.inf.ed.ac.uk>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1054295375 14155 80.91.224.249 (30 May 2003 11:49:35 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Fri, 30 May 2003 11:49:35 +0000 (UTC)
Original-X-From: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org Fri May 30 13:49:28 2003
Return-path: <help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 19LiO0-0003fc-00
	for <gnu-help-gnu-emacs@m.gmane.org>; Fri, 30 May 2003 13:49:28 +0200
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.20)
	id 19LiOo-00064B-Vc
	for gnu-help-gnu-emacs@m.gmane.org; Fri, 30 May 2003 07:50:18 -0400
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!headwall.stanford.edu!fu-berlin.de!uni-berlin.de!vegetable.demon.co.UK!not-for-mail
Original-Newsgroups: gnu.emacs.help
Original-Lines: 22
Original-NNTP-Posting-Host: vegetable.demon.co.uk (80.177.16.3)
Original-X-Trace: fu-berlin.de 1054295124 7027939 80.177.16.3 (16 [97657])
X-No-Yes: No
Mail-Copies-To: nobody
User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3.50
Cancel-Lock: sha1:CaUo/wPg7NyZAtiHmcekUL0y9KQ=
Original-Xref: shelby.stanford.edu gnu.emacs.help:113878
Original-To: help-gnu-emacs@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1b5
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
Errors-To: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org
Xref: main.gmane.org gmane.emacs.help:10372
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:10372

David C Sterratt wrote:

[...] Having to repeat font-lock-defaults with one minor change.

How about:
(setq font-lock-defaults `((nnrnhoc-font-lock-keywords)
                           nil
                           nil
                           ((?_ . "w")
                            (?\n . "> b")
                            (?/ . ,(if (string-match "XEmacs"
                                                     (emacs-version))
                                       ". 1456"
                                       ". 124b"))
                            (?* . ". 23")
                            (?\^m . "> b"))))

That way, you only have a different bit for the XEmacs/Emacs
difference, rather than having to repeat the entire setq twice.

-- 
lawrence mitchell <wence@gmx.li>