[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Postscript print region line numbers
From: |
Kevin Rodgers |
Subject: |
Re: Postscript print region line numbers |
Date: |
Wed, 9 Jul 2003 09:53:40 -0600 |
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)