From 53a124003ed4fba04eb9bbee897e0548747b0c31 Mon Sep 17 00:00:00 2001 From: Vinicius Jose Latorre Date: Wed, 26 Dec 2007 16:28:30 +0000 Subject: [PATCH] Fix ps-print-preprint-region code --- lisp/ChangeLog | 5 +++++ lisp/ps-print.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7dde34cb55d..e98c4bf2fce 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-12-26 Vinicius Jose Latorre + + * ps-print.el (ps-print-preprint-region): Use `region-active-p' instead + `mark' for error checking. + 2007-12-26 Tassilo Horn * image-mode.el (image-bookmark-make-cell, image-bookmark-jump): diff --git a/lisp/ps-print.el b/lisp/ps-print.el index fd5d94334cb..2cdb50e76ef 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -4695,7 +4695,7 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th (defun ps-print-preprint-region (prefix-arg) - (or (mark) + (or (region-active-p) (error "The mark is not set now")) (list (point) (mark) (ps-print-preprint prefix-arg))) -- 2.39.2