Fix ps-print-preprint-region code

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7dde34cb55dbd5aa96c4fc1881523c7750804c25..e98c4bf2fcea29f6b117ee35c7c5a1408400d8b0 100644 (file)
--- 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 fd5d94334cb00425fc63f2c1fcf1f90e9bb5f5db..2cdb50e76ef41ebe882c17ff7f4e29cdc3408caf 100644 (file)
--- 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)))