font-lock-add-keywords and etc.

[Adrian Aichner]

John Kuhns <john at designadvance.com> writes:

> Hello,
>
> I saw a webpage describing a putback that added font-lock-add-keywords
> to xemacs. I have 21.4.20 here. What do I need to do to get that
> capability?

Hello Vin, could you please consider this patch for the next release
of 21.4?

I have used this quite a bit in my locally built XEmacs.

From: Adrian Aichner <adrian at xemacs.org>
Subject: [C] [R21.4] xemacs-21.5-clean: Sync font-lock-add-keywords and font-lock-remove-keywords from GNU Emacs
To: XEmacs Patches <xemacs-patches at xemacs.org>
Date: Thu, 02 Nov 2006 00:17:43 +0100
Organization: The XEmacs Project
Message-ID: <bqnq69k8.fsf at mx.qsc.de>

Let me know if you have issues with this you want my help on.

>
> Also I tried changing keyword if indentation likeso:
>
> (setq lisp-indent-function 'common-lisp-indent-function)
> (mapc #'(lambda (x) (put (cdr x) 'lisp-indent-function (car x)))
> 				'(((2 2 2 &rest 2) . foreach)
>                                   ((2 2 2 2 2 2 2 &rest 2) . for)
>                                   ((2 1 &rest 2) . if)
>                                   ((2 &rest 2) . letseq)))
>
> All the other keywords work fine but <if> doesn't.

John, I think you need to put a 'common-lisp-indent-function property
on the various objects, not a 'lisp-indent-function property.

I'm not sure what the correct syntax for the if syntax is, but it
doesn't look obviously wrong.

Have you looked at the examples in cl-indent.el?

It's part of the prog-modes XEmacs lisp package.

Good Luck!

Adrian

>
> Thanks,
> -John Kuhns
>
>
> _______________________________________________
> XEmacs-Beta mailing list
> XEmacs-Beta at xemacs.org
> http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta
>
>

-- 
Adrian Aichner
 mailto:adrian at xemacs.org
 http://www.xemacs.org/