From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/55459
Path: main.gmane.org!not-for-mail
From: Reiner Steib <4.uce.03.r.s@nurfuerspam.de>
Newsgroups: gmane.emacs.gnus.general
Subject: Simplify code for tooltips in menus
Date: Thu, 01 Jan 2004 14:54:10 +0100
Sender: ding-owner@lists.math.uh.edu
Message-ID: <v9hdzfu64d.fsf@marauder.physik.uni-ulm.de>
Reply-To: reiner.steib@gmx.de
NNTP-Posting-Host: deer.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1072966231 28320 80.91.224.253 (1 Jan 2004 14:10:31 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Thu, 1 Jan 2004 14:10:31 +0000 (UTC)
Original-X-From: ding-owner+M3999@lists.math.uh.edu Thu Jan 01 15:10:29 2004
Return-path: <ding-owner+M3999@lists.math.uh.edu>
Original-Received: from malifon.math.uh.edu ([129.7.128.13])
	by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 1Ac3Wu-0005fA-00
	for <ding-account@gmane.org>; Thu, 01 Jan 2004 15:10:28 +0100
Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu)
	by malifon.math.uh.edu with smtp (Exim 3.20 #1)
	id 1Ac3Wo-0000jH-00; Thu, 01 Jan 2004 08:10:22 -0600
Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix)
	by malifon.math.uh.edu with esmtp (Exim 3.20 #1)
	id 1Ac3Wk-0000jC-00
	for ding@lists.math.uh.edu; Thu, 01 Jan 2004 08:10:18 -0600
Original-Received: from main.gmane.org (main.gmane.org [80.91.224.249])
	by justine.libertine.org (Postfix) with ESMTP id E07F73A0034
	for <ding@gnus.org>; Thu,  1 Jan 2004 08:10:17 -0600 (CST)
Original-Received: from root by main.gmane.org with local (Exim 3.35 #1 (Debian))
	id 1Ac3Wj-000598-00
	for <ding@gnus.org>; Thu, 01 Jan 2004 15:10:17 +0100
Mail-Followup-To: ding@gnus.org
X-Injected-Via-Gmane: http://gmane.org/
Original-To: ding@gnus.org
Original-Received: from sea.gmane.org ([80.91.224.252])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 1Ac3Qz-00055E-00
	for <gmane-emacs-gnus-general@m.gmane.org>; Thu, 01 Jan 2004 15:04:21 +0100
Original-Received: from news by sea.gmane.org with local (Exim 3.35 #1 (Debian))
	id 1Ac3Qz-0007ED-00
	for <gmane-emacs-gnus-general@m.gmane.org>; Thu, 01 Jan 2004 15:04:21 +0100
Original-Lines: 41
Original-X-Complaints-To: usenet@sea.gmane.org
X-Face: 1;h7XMU[7l}$T@J.D}5z*w8Tg'}B5ArAWc8>2X~otB;kOjKs8X%|hTC#dG:%Vpx")x7S/`v
 :VXU#fZW$X$zdhEU.RfVQ@<-m9IuN{Hm"fW{,5]6kR'M*vEs+{5Cj!L(JTRzA$(},?5J=sm;%Od<wF
 n1tFjn=\ebMD[/DscC9744!blS5-Dv$;1+XwE%^"5_m:{((&;\^I,d-B,DlxRl{qX=`qGHSuz*u9(_
 #@5fNMe%j-vp[[P.L^xFvkpFgC7oivb)!]
Mail-Copies-To: nobody
User-Agent: Gnus/5.1004 (Gnus v5.10.4) Emacs/21.3 (gnu/linux)
Cancel-Lock: sha1:3APmbD+QGCgHq71FqmpgSDfIBdk=
Precedence: bulk
Xref: main.gmane.org gmane.emacs.gnus.general:55459
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:55459

Hi,

when a menu entry has a tooltip (help echo) text, it is done in this
way:

,----[ gnus-sum.el ]
| 	   `(...
| 	      ["Rot 13" gnus-summary-caesar-message
| 	       ,@(if (featurep 'xemacs) '(t)
| 		   '(:help "\"Caesar rotate\" article by 13"))]
|             ...)
`----

Wouldn't the code be more readable (and easier to change if XEmacs
might support this too), if we'd use a utility function (or macro)?

,----[ gnus-sum.el ]
| 	   `(...
| 	      ["Rot 13" gnus-summary-caesar-message
| 	       ,@(gnus-help "\"Caesar rotate\" article by 13")]
|             ...)
`----

,----[ gnus-util.el ]
| (defmacro gnus-help (text)
|   `(if (featurep 'xemacs)
|        '(t)
|      '(:help ,text)))
`----

I'm not too familiar with the details of (macro) expansion.  Feel free
to suggest improvements.

This would also be useful for `message.el'.  Can (should) we use stuff
from `gnus-util.el' there?

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   http://rsteib.home.pages.de/