# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1198623008 0
# Node ID 5a01a0bdd017bd7d02032cbbc28ec99b2ac107e8
# Parent  5d4b7a894119256b51d2c720a9d79ae5f8e0aa62
(ps-mark-active-p): Function deleted.
(ps-print-preprint-region): Use (mark) for the error check.

diff -r 5d4b7a894119 -r 5a01a0bdd017 lisp/ps-print.el
--- a/lisp/ps-print.el	Tue Dec 25 22:48:48 2007 +0000
+++ b/lisp/ps-print.el	Tue Dec 25 22:50:08 2007 +0000
@@ -1501,12 +1501,6 @@
 (defalias 'ps-frame-parameter
   (if (fboundp 'frame-parameter) 'frame-parameter 'frame-property))
 
-(defalias 'ps-mark-active-p
-  (if (fboundp 'region-active-p)
-      'region-active-p			; XEmacs
-    (defvar mark-active)		; To shup up XEmacs's byte compiler.
-    (lambda () mark-active)))		; Emacs
-
 (defun ps-face-foreground-name (face)
   (if (featurep 'xemacs)
       (ps-xemacs-color-name (face-foreground face))
@@ -4701,7 +4695,7 @@
 
 
 (defun ps-print-preprint-region (prefix-arg)
-  (or (ps-mark-active-p)
+  (or (mark)
       (error "The mark is not set now"))
   (list (point) (mark) (ps-print-preprint prefix-arg)))