From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 25 Dec 2007 22:50:08 +0000 (+0000)
Subject: (ps-mark-active-p): Function deleted.
X-Git-Tag: emacs-pretest-23.0.90~8834
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=05237bb4f5ce2226cd912323e4064f4aaa8673f9;p=emacs.git

(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 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)))