Re: [A21.4] [PATCH] xemacs-21.5: Only NAME, not NAME( to appear in font-lock-function-name-face

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;