From e22ba851aa4a00b3d9e6062bdbad0e49604f6a5b Mon Sep 17 00:00:00 2001 From: Vinicius Jose Latorre Date: Thu, 10 Jul 2003 22:29:13 +0000 Subject: [PATCH] Print line number correctly in a region. --- lisp/ChangeLog | 7 +++++++ lisp/ps-print.el | 16 ++++++++-------- 2 files changed, 15 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ddb375d01cd..974c2c80d7f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2003-07-10 Vinicius Jose Latorre + + * ps-print.el: Print line number correctly in a region. Reported by + Tim Allen + (ps-print-version): New version number (6.6.2). + (ps-printing-region): Code fix. + 2003-07-10 John Paul Wallington * progmodes/etags.el (visit-tags-table-buffer): Add autoload cookie; diff --git a/lisp/ps-print.el b/lisp/ps-print.el index ac6d37854e3..0b8412edc1d 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -10,12 +10,12 @@ ;; Maintainer: Kenichi Handa (multi-byte characters) ;; Vinicius Jose Latorre ;; Keywords: wp, print, PostScript -;; Time-stamp: <2003/05/14 22:34:05 vinicius> -;; Version: 6.6.1 +;; Time-stamp: <2003/07/10 19:19:12 vinicius> +;; Version: 6.6.2 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ -(defconst ps-print-version "6.6.1" - "ps-print.el, v 6.6.1 <2003/05/14 vinicius> +(defconst ps-print-version "6.6.2" + "ps-print.el, v 6.6.2 <2003/07/10 vinicius> Vinicius's last change version -- this file may have been edited as part of Emacs without changes to the version number. When reporting bugs, please also @@ -4126,7 +4126,7 @@ If EXTENSION is any other symbol, it is ignored." (defun ps-spool-without-faces (from to &optional region-p) (run-hooks 'ps-print-hook) - (ps-printing-region region-p from) + (ps-printing-region region-p from to) (ps-generate (current-buffer) from to 'ps-generate-postscript)) @@ -4137,7 +4137,7 @@ If EXTENSION is any other symbol, it is ignored." (defun ps-spool-with-faces (from to &optional region-p) (run-hooks 'ps-print-hook) - (ps-printing-region region-p from) + (ps-printing-region region-p from to) (ps-generate (current-buffer) from to 'ps-generate-postscript-with-faces)) @@ -4167,11 +4167,11 @@ file.") "Non-nil means ps-print is printing a region.") -(defun ps-printing-region (region-p from) +(defun ps-printing-region (region-p from to) (setq ps-printing-region-p region-p ps-printing-region (cons (if region-p - (ps-count-lines (point-min) from) + (ps-count-lines (point-min) (min from to)) 1) (ps-count-lines (point-min) (point-max))))) -- 2.39.2