APPROVE 21.4 Adrian Aichner <Adrian.Aichner(a)t-online.de&gt; writes: > 21.5 21.4 > > The problem can be experienced in all these package defuns: > > > > not in core lisp though. > > Here are separate patches for 21.5 and 21.4 and a ChangeLog applicable > to to both. > > Best regards, > > Adrian > > xemacs-21.5 ChangeLog patch: > Diff command: cvs -q diff -U 0 > Files affected: lisp/ChangeLog > > Index: lisp/ChangeLog > =================================================================== > RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v > retrieving revision 1.509 > diff -u -U0 -r1.509 ChangeLog > --- lisp/ChangeLog 1 Jun 2003 05:10:19 -0000 1.509 > +++ lisp/ChangeLog 10 Jun 2003 23:42:19 -0000 > ＠＠ -0,0 +1,5 ＠＠ > +2003-06-11 Adrian Aichner <adrian(a)xemacs.org&gt; > + > + * font-lock.el (lisp-font-lock-keywords-1): Only NAME, not NAME( > + to appear in font-lock-function-name-face. > + > > xemacs-21.5 source patch: > Diff command: cvs -f -z3 -q diff -u -N > Files affected: lisp/font-lock.el > > Index: lisp/font-lock.el > =================================================================== > RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/font-lock.el,v > retrieving revision 1.26 > diff -u -r1.26 font-lock.el > --- lisp/font-lock.el 24 Apr 2003 05:29:12 -0000 1.26 > +++ lisp/font-lock.el 10 Jun 2003 23:27:14 -0000 > ＠＠ -1987,7 +1987,7 ＠＠ > "\\)\\>" > ;; Any whitespace following and declared object. > "[ \t'\(]*" > - "\\([^ \t\n\)]+\\)?") > + "\\([^ \t\n\(\)]+\\)?") > ;; Note about numbering: #1 is the grouping around the whole > ;; keyword. #2 - #4 are in lisp-function-and-type-regexp. > ;; #5 is for variables. (Must be set if neither #3 nor #4 are.) > > xemacs-21.4 source patch: > > Index: font-lock.el > =================================================================== > RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/font-lock.el,v > retrieving revision 1.13.2.4 > diff -u -u -r1.13.2.4 font-lock.el > --- font-lock.el 2002/10/31 15:06:16 1.13.2.4 > +++ font-lock.el 2003/06/10 23:44:58 > ＠＠ -1982,7 +1982,7 ＠＠ > "\\)\\)\\>" > ;; Any whitespace and declared object. > "[ \t'\(]*" > - "\\([^ \t\n\)]+\\)?") > + "\\([^ \t\n\(\)]+\\)?") > '(1 font-lock-keyword-face) > '(8 (cond ((match-beginning 3) 'font-lock-variable-name-face) > ((match-beginning 6) 'font-lock-type-face) > > -- > Adrian Aichner <adrian(a)xemacs.org&gt;