ps-print-buffer ps-right-header

ps-print-buffer ps-right-header

[Greg Hill]

platform:  GNU Emacs 21.2.2 (sparc-sun-solaris2.7, X toolkit)

It appears as if a symbol-function provided as part of 
ps-right-header gets called twice before the first page is printed. 
I would expect the code below to print "1/2" at the top of the first 
page, and "2/2" at the top of the second page.  Instead it prints out 
"2/2" and "3/2".

In my *Messages* buffer I get:

Formatting...  0%
printPageNo called with PageNumber = 0
printPageNo called with PageNumber = 1
Formatting... 50%
printPageNo called with PageNumber = 2

Of course you will probably have to change the values of 
ps-lpr-command and ps-lpr-switches to run this on your platform.

(defun printPageNo ()
   (message "printPageNo called with PageNumber = %d" PageNumber)
   (format "%d/%d" (setq PageNumber (1+ PageNumber)) NumPages))

(defun print-something ()
   (let ((ps-left-header (list "(UpperHeader)" "(LowerHeader)"))
	(ps-right-header (list 'printPageNo
			       'ps-time-stamp-locale-default ))
	(ps-lpr-command  "lp")
	(ps-lpr-switches (list "-dpclsw"))
	(PageNumber 0)
	(NumPages 2) )
     (set-buffer (setq print-buffer (get-buffer-create "printTest")))
     (erase-buffer)
     (insert "First page\fSecond page")
     (ps-print-buffer) ))

--Greg