From xemacs-m  Wed Feb  5 03:49:26 1997
Received: from mgate.uni-hannover.de (mgate.uni-hannover.de [130.75.2.3])
	by xemacs.org (8.8.5/8.8.5) with SMTP id DAA25277
	for <xemacs-beta@xemacs.org>; Wed, 5 Feb 1997 03:49:25 -0600 (CST)
Received: from helios (actually helios.tnt.uni-hannover.de) by mgate 
          with SMTP (PP); Wed, 5 Feb 1997 10:48:08 +0100
Received: from daedalus.tnt.uni-hannover.de by helios (SMI-8.6/SMI-SVR4) 
          id KAA29241; Wed, 5 Feb 1997 10:47:27 +0100
Received: by daedalus.tnt.uni-hannover.de (SMI-8.6/SMI-SVR4) id KAA16629;
          Wed, 5 Feb 1997 10:47:24 +0100
Date: Wed, 5 Feb 1997 10:47:24 +0100
Message-Id: <199702050947.KAA16629@daedalus.tnt.uni-hannover.de>
From: Heiko Muenkel <muenkel@tnt.uni-hannover.de>
To: duthen@cegelec-red.fr, jmiller@bay1.bayserve.net
Cc: xemacs-beta@xemacs.org
Subject: Re: Updates to print menu under Options
In-Reply-To: <9702041732.AA00572@dtas0b.cegelec-red.fr>
References: <199702041026.LAA15185@daedalus.tnt.uni-hannover.de> <9702041732.AA00572@dtas0b.cegelec-red.fr>
X-Face: n}R'l6CHRf>pi&bj7[x0CW3:kmXm@1)7m+l*9[fp;-Ow4Xe~=5E;skf?2> 
        y]f{HzB|Q(\V9+y$PP~.4G[2n4W7{6Ilm[AMY9B:0kj.K_$-d%p4YIF*bX;=ADp6{ 
        HS@NEv9c.VII+9PgXHASx}K(jy^t=q%qzZ72q1e4E;O!$A$`&wgtLk"1%p.nC_G!] 
        4d1!+J4Q#YD_iXeEy`1x)d\r$1Qn\'23n|[8Y_xzuXJJ7W(EGqnzB]`]aq??;+z=) 
        DW~\'Vq&F'g%QU[Mv2:}nS>SdZFTEC2GsgB=Q,:~H<R5S[:ZN%B:s0;|v1x"Jb
Mime-Version: 1.0 (generated by tm-edit 7.90)
Content-Type: text/plain; charset=US-ASCII

>>>>> "Jacques" == Jacques Duthen Prestataire <duthen@cegelec-red.fr> writes:

    >> Date: Tue, 4 Feb 1997 11:26:09 +0100 From: Heiko Muenkel
    >> <muenkel@tnt.uni-hannover.de>

>>>>> "Jeff" == Jeff Miller <jmiller@bay1.bayserve.net> writes:

    Jeff> Added to XEmacs 20.0 but probably the same for 19.15

    Jeff> Does anybody else think these are useful?  I'd like to see
    Jeff> an option to specify a printer.  I can always hard code
    Jeff> something in but something automagically built from a
    Jeff> printcap file or an alist type thing would really be nice.
    Jeff> That would be a bit more that my lisp abilities can handle
    Jeff> though.

    heiko> I've already such a menu, which is build from an
    heiko> alist. I've added the code at the end of this mail. Note:
    heiko> This is a part of a file which I'm using to install a menu
    heiko> with other usefull entries. Therefore I'm not sure, if this
    heiko> part is working without the rest of the file. But I'll send
    heiko> the whole file if there's any interest. I'm also able to
    heiko> develope a patch, if Steven want's to integrate it in the
    heiko> Options menu.

    heiko> Any interest?

    heiko> [code snipped]

    Jacques> Well.  I'm really sorry if you wasted your time!  The

Not for that, the code is two years old. I've never thought, that
anybody else could use it :-)

    Jacques> last version of ps-print.el (should be 3.05 for XEmacs)
    Jacques> now evaluates dynamically the ps-lpr-switches.  This is a
    Jacques> patch from Steven L Baur <steve@miranova.com> from whom
    Jacques> you can get it.

    Jacques> So now you just need to do something like this:

    Jacques> (setq hm-current-ps-printer "schiller") ; default printer

    Jacques> (setq ps-lpr-switches '("-P " hm-current-ps-printer))

    Jacques> and only change the contents of `hm-current-ps-printer'
    Jacques> from the menu:

    Jacques> (defun hm-select-new-ps-printer (printer) "Selects and
    Jacques> sets a new ps printer."  (interactive (list
    Jacques> (completing-read "Name of the printer: "
    Jacques> hm-ps-printer-alist nil nil hm-current-ps-printer)))
    Jacques> (setq hm-current-ps-printer printer))

    Jacques> Ok?  [jack]

That's fine. But if such a menu goes in the standard XEmacs "Options"
menu, then there should also an entry like "Add printer" or "Change
printer list", which makes it easier for the user to use it's own site
specific printers.

Heiko

