Fix ps-print-preprint-region code

2 files changed, 6 insertions, 1 deletions

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  <viniciusjl@ig.com.br>
+
+        * ps-print.el (ps-print-preprint-region): Use `region-active-p' instead
+        `mark' for error checking.
+
 2007-12-26  Tassilo Horn  <tassilo@member.fsf.org>
 
         * 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)))