Mercurial > emacs
changeset 87405:5a01a0bdd017
(ps-mark-active-p): Function deleted.
(ps-print-preprint-region): Use (mark) for the error check.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 25 Dec 2007 22:50:08 +0000 |
| parents | 5d4b7a894119 |
| children | 5ae8af9a4b8e |
| files | lisp/ps-print.el |
| diffstat | 1 files changed, 1 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ps-print.el Tue Dec 25 22:48:48 2007 +0000 +++ b/lisp/ps-print.el Tue Dec 25 22:50:08 2007 +0000 @@ -1501,12 +1501,6 @@ (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 @@ (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)))