# HG changeset patch
# User Vinicius Jose Latorre <viniciusjl@ig.com.br>
# Date 1198686510 0
# Node ID 6528ad32693a0412c7c6c3455e23ff6e8640917a
# Parent  c35602a6afacb9ea07a7faf4a490d72ff3b7c9bd
Fix ps-print-preprint-region code

diff -r c35602a6afac -r 6528ad32693a lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Dec 26 16:04:51 2007 +0000
+++ b/lisp/ChangeLog	Wed Dec 26 16:28:30 2007 +0000
@@ -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 -r c35602a6afac -r 6528ad32693a lisp/ps-print.el
--- a/lisp/ps-print.el	Wed Dec 26 16:04:51 2007 +0000
+++ b/lisp/ps-print.el	Wed Dec 26 16:28:30 2007 +0000
@@ -4695,7 +4695,7 @@
 
 
 (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)))