Re: Postscript print region line numbers

[Kevin Rodgers]

Tim Allen writes:
> Emacs 21.2 and 21.3. When postscript printing a region with
> ps-line-number true, the line numbering starts from the point rather
> than the lowest of the mark and point. Thus the line numbering is
> incorrect if the region was selected from top to bottom, but is
> correct if the region was selected from bottom to top.

2003-07-09  Kevin Rodgers  <ihs_4664@yahoo.com>

        * ps-print.el (ps-print-preprint-region, ps-nb-pages-region):
        Use region-beginning and region-end instead of point and mark,
        in case the region was selected from bottom to top.

*** emacs-21.3/lisp/ps-print.el.orig    Wed Sep 19 08:54:19 2001
--- emacs-21.3/lisp/ps-print.el Wed Jul  9 09:42:52 2003
***************
*** 3363,3369 ****
  (defun ps-nb-pages-region (nb-lines)
    "Display number of pages to print the region, for various font heights.
  The table depends on the current ps-print setup."
!   (interactive (ps-count-lines-preprint (mark) (point)))
    (ps-nb-pages nb-lines))
  
  (defvar ps-prefix-quote nil
--- 3363,3369 ----
  (defun ps-nb-pages-region (nb-lines)
    "Display number of pages to print the region, for various font heights.
  The table depends on the current ps-print setup."
!   (interactive (ps-count-lines-preprint (region-beginning) (region-end)))
    (ps-nb-pages nb-lines))
  
  (defvar ps-prefix-quote nil
***************
*** 4410,4416 ****
  (defun ps-print-preprint-region (prefix-arg)
    (or mark-active
        (error "The mark is not set now"))
!   (list (point) (mark) (ps-print-preprint prefix-arg)))
  
  
  (defun ps-print-preprint (prefix-arg)
--- 4410,4416 ----
  (defun ps-print-preprint-region (prefix-arg)
    (or mark-active
        (error "The mark is not set now"))
!   (list (region-beginning) (region-end) (ps-print-preprint prefix-arg)))
  
  
  (defun ps-print-preprint (prefix-arg)