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

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

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 8424a7de44f168629d5fa226a871570abacf6da7..fd5d94334cb00425fc63f2c1fcf1f90e9bb5f5db 100644 (file)
--- 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)))