[PATCH] XEmacs doesn't understand ':keys'

[PATCH] XEmacs doesn't understand ':keys'

[Steve Youngs]

Without this, latest CVS is broke for XEmacs.

Index: lisp/ChangeLog
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/ChangeLog,v
retrieving revision 6.999
diff -u -w -U0 -r6.999 ChangeLog
--- lisp/ChangeLog	2002/01/02 17:19:28	6.999
+++ lisp/ChangeLog	2002/01/02 17:45:56
@@ -0,0 +1,5 @@
+2002-01-03  Steve Youngs  <youngs@xemacs.org>
+
+	* gnus-sum.el (gnus-summary-make-menu-bar): XEmacs doesn't
+	understand ':keys', wrap it in an featurep 'xemacs.
+
Index: lisp/gnus-sum.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-sum.el,v
retrieving revision 6.147
diff -u -w -r6.147 gnus-sum.el
--- lisp/gnus-sum.el	2002/01/02 16:57:09	6.147
+++ lisp/gnus-sum.el	2002/01/02 17:46:42
@@ -2013,7 +2013,9 @@
 	     ["Fetch article with id..." gnus-summary-refer-article t]
 	     ["Setup Mailing List Params" gnus-mailing-list-insinuate t]
 	     ["Redisplay" gnus-summary-show-article t]
-	     ["Raw article" gnus-summary-show-raw-article t :keys "C-u g"])))
+	     ["Raw article" gnus-summary-show-raw-article 
+	      ,@(if (featurep 'xemacs) '(t) 
+		  '(:keys "C-u g"))])))
       (easy-menu-define
 	gnus-summary-article-menu gnus-summary-mode-map ""
 	(cons "Article" innards))

-- 
|---<Steve Youngs>---------------<GnuPG KeyID: 10D5C9C5>---|
|            XEmacs - It's not just an editor.             |
|                    It's a way of life.                   |
|------------------------------------<youngs@xemacs.org>---|

Re: [PATCH] XEmacs doesn't understand ':keys'

[ShengHuo ZHU]

Steve Youngs <youngs@xemacs.org> writes:

> Without this, latest CVS is broke for XEmacs.

Installed.

ShengHuo

Re: [PATCH] XEmacs doesn't understand ':keys'

[Steve Youngs]

|--==> "ZSH" == ShengHuo ZHU <zsh@cs.rochester.edu> writes:

  ZSH> Steve Youngs <youngs@xemacs.org> writes:
  >>Without this, latest CVS is broke for XEmacs.

  ZSH> Installed.

Thanks, ShengHuo.

-- 
|---<Steve Youngs>---------------<GnuPG KeyID: 10D5C9C5>---|
|            XEmacs - It's not just an editor.             |
|                    It's a way of life.                   |
|------------------------------------<youngs@xemacs.org>---|

Re: [PATCH] XEmacs doesn't understand ':keys'

[Per Abrahamsen]

XEmacs understands :keys just fine, I have used in in AUC TeX for
years.  And it is documented, do a 'C-h f easy-menu-define'.

However

> -	     ["Raw article" gnus-summary-show-raw-article t :keys "C-u g"])))

is wrong.  The keyword arguments replace the ENABLE flag.  The correct
syntax would be

       ["Raw article" gnus-summary-show-raw-article :keys "C-u g"]

I have fixed it in CVS.