(ps-mark-active-p): Function deleted.

(ps-print-preprint-region): Use (mark) for the error check.

1 files changed, 1 insertions, 7 deletions

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 8424a7de44f..fd5d94334cb 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -1501,12 +1501,6 @@ Please send all bug fixes and enhancements to
 (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 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th
 
 
 (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)))