diff options
author | Richard M. Stallman <rms@gnu.org> | 2007-12-25 22:50:08 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2007-12-25 22:50:08 +0000 |
commit | 9d99ab93e0310840a68a0fbcb82dd5a44d5ca27a (patch) | |
tree | e1d2d3f5e73ba303a00afed3ba22e3b3cab25f3d /lisp/ps-print.el | |
parent | 72dfceaa069daf427bd2c36d3a6f27bb08f0cf6e (diff) | |
download | emacs-9d99ab93e0310840a68a0fbcb82dd5a44d5ca27a.tar.gz |
(ps-mark-active-p): Function deleted.
(ps-print-preprint-region): Use (mark) for the error check.
Diffstat (limited to 'lisp/ps-print.el')
-rw-r--r-- | lisp/ps-print.el | 8 |
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))) |