From 05237bb4f5ce2226cd912323e4064f4aaa8673f9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 25 Dec 2007 22:50:08 +0000 Subject: [PATCH] (ps-mark-active-p): Function deleted. (ps-print-preprint-region): Use (mark) for the error check. --- lisp/ps-print.el | 8 +------- 1 file changed, 1 insertion(+), 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))) -- 2.39.2