APPROVE 21.4
Adrian Aichner <Adrian.Aichner(a)t-online.de> 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>
> +
> + * 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>