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