From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!not-for-mail
From: Rodolfo Medina <rodolfo.medina@gmail.com>
Newsgroups: gmane.emacs.help
Subject: Re: ps-right-footer interactive setting
Date: Sat, 06 Sep 2008 17:28:09 +0100
Organization: SunSITE.dk - Supporting Open source
Message-ID: <874p4tnsrq.fsf@gmail.com>
References: <87ej42m64o.fsf@gmail.com>
	<barmar-BC5883.00081903092008@newsgroups.comcast.net>
	<87ej412cpw.fsf@gmail.com> <87aben37np.fsf@gmail.com>
	<barmar-F12A64.21195304092008@newsgroups.comcast.net>
	<87wshqki5r.fsf_-_@gmail.com> <uej3y4cvg.fsf@myhost.sbcglobal.net>
NNTP-Posting-Host: lo.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: ger.gmane.org 1220715743 3492 80.91.229.12 (6 Sep 2008 15:42:23 GMT)
X-Complaints-To: usenet@ger.gmane.org
NNTP-Posting-Date: Sat, 6 Sep 2008 15:42:23 +0000 (UTC)
To: help-gnu-emacs@gnu.org
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Sat Sep 06 17:43:18 2008
Return-path: <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
Envelope-to: geh-help-gnu-emacs@m.gmane.org
Original-Received: from lists.gnu.org ([199.232.76.165])
	by lo.gmane.org with esmtp (Exim 4.50)
	id 1KbzwT-0003Td-Ef
	for geh-help-gnu-emacs@m.gmane.org; Sat, 06 Sep 2008 17:43:17 +0200
Original-Received: from localhost ([127.0.0.1]:43015 helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43)
	id 1KbzvT-000494-QV
	for geh-help-gnu-emacs@m.gmane.org; Sat, 06 Sep 2008 11:42:15 -0400
Original-Path: news.stanford.edu!newsfeed.stanford.edu!goblin1!goblin2!goblin.stu.neva.ru!news.net.uni-c.dk!dotsrc.org!filter.dotsrc.org!news.dotsrc.org!not-for-mail
Original-Newsgroups: gnu.emacs.help
User-Agent: Gnus/5.110007 (No Gnus v0.7) Emacs/22.0.50 (gnu/linux)
Cancel-Lock: sha1:/WBdDwld1e6Ckm9Dv6q13oRgon0=
Original-Lines: 55
Original-NNTP-Posting-Host: 151.80.145.42
Original-X-Trace: news.sunsite.dk
	DXC=f^cL7XmEN[]0Sc_VCmP]hZYSB=nbEKnk[ebg1>^?UCAZ:AocXk=\=_TT7bXfBO;
	G:UKAib\KDO`hRm=c5DAkLCD\bnM1Ve3KCOUSmD1NRFNVKU
Original-X-Complaints-To: staff@sunsite.dk
Original-Xref: news.stanford.edu gnu.emacs.help:161976
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/help-gnu-emacs>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Xref: news.gmane.org gmane.emacs.help:57314
Archived-At: <http://permalink.gmane.org/gmane.emacs.help/57314>

Rodolfo Medina <rodolfo.medina@gmail.com> writes:

>>>> Now I'm working on the ps-right-footer variable.  I wish to be prompted
>>>> for a page number so that the variable is set to:
>>>> 
>>>>  (list <page number>)
>>>> 
>>>> .  I did:
>>>> 
>>>> (defun my-ps-right-footer ()
>>>>   (interactive)
>>>>   (let ((my-page-number (read-number "page number? ")))
>>>>     (setq ps-print-footer t)
>>>>     (setq ps-right-footer (list 'my-page-number))
>>>>     )
>>>>   )
>>>> 
>>>> , but it doesn't work.  Any suggestion?



Barry Margolin <barmar@alum.mit.edu> writes:

>>> It should be (list my-page number).  Quoting prevents the variable from 
>>> being evaluated.



Rodolfo:

>> Unfortunately it doesn't work either:
>>
>> (defun my-ps-right-footer ()
>>   (interactive)
>>   (let ((my-page-number (read-number "page number? ")))
>>     (setq ps-print-footer t)
>>     (setq ps-right-footer (list my-page-number))
>>     )
>>   )
>>
>> produces a ps print error.  I can't find a solution.  Thanks for furhter
>> suggestions.




Chetan <Chet.xspam@xspam.sbcglobal.net> writes:

> It is a postscript string...
> (list (concat "(" (number-to-string my-page-number) ")"))



Thanks, this worked!
Rodolfo