From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Stefan Newsgroups: gmane.emacs.devel Subject: printing.el again Date: Sun, 14 Nov 2004 00:59:38 -0500 Message-ID: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1100412039 13388 80.91.229.6 (14 Nov 2004 06:00:39 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 14 Nov 2004 06:00:39 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sun Nov 14 07:00:26 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CTDR4-0006Iv-00 for ; Sun, 14 Nov 2004 07:00:26 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CTDZh-0003v4-LG for ged-emacs-devel@m.gmane.org; Sun, 14 Nov 2004 01:09:21 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1CTDZ3-0003ep-Mi for emacs-devel@gnu.org; Sun, 14 Nov 2004 01:08:41 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1CTDZ1-0003df-NV for emacs-devel@gnu.org; Sun, 14 Nov 2004 01:08:40 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CTDZ1-0003dO-Fc for emacs-devel@gnu.org; Sun, 14 Nov 2004 01:08:39 -0500 Original-Received: from [206.47.199.141] (helo=simmts12-srv.bellnexxia.net) by monty-python.gnu.org with esmtp (Exim 4.34) id 1CTDQJ-0000wd-Bi for emacs-devel@gnu.org; Sun, 14 Nov 2004 00:59:39 -0500 Original-Received: from empanada.home ([67.71.119.89]) by simmts12-srv.bellnexxia.net (InterMail vM.5.01.06.10 201-253-122-130-110-20040306) with ESMTP id <20041114055938.UKDZ1580.simmts12-srv.bellnexxia.net@empanada.home>; Sun, 14 Nov 2004 00:59:38 -0500 Original-Received: by empanada.home (Postfix, from userid 502) id A5B96369A74; Sun, 14 Nov 2004 00:59:38 -0500 (EST) Original-To: emacs-devel@gnu.org User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/21.3.50 (darwin) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:29803 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:29803 In your merge of the two menus, why do you still bother with (pr-:visible (if (eq ps-print-emacs-type 'emacs) :visible ; GNU Emacs :included)) since on Emacs, :visible and :included are synonyms anyway. Also you now do (let (... pr-:help) (if (eq ps-print-emacs-type 'emacs) (defalias 'pr-:help #'(lambda (text) (list :help text))) ; GNU Emacs (defalias 'pr-:help 'ignore)) ; XEmacs which does not do what you think. The `let' binding of the `pr-:help' variable has *no effect* on the `pr-:help' function (the two name spaces are separate). I.e. the pr-:help function ends up defined globally anyway so you had better define it at toplevel so it's less misleading (or otherwise, you'd want to use CL's `flet' if you want to locally define a function). Stefan