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 | 05237bb4f5ce2226cd912323e4064f4aaa8673f9 (patch) | |
| tree | 84a3a64954c2e4c30ba709bfd64ad5a15d2d6494 /lisp | |
| parent | 8af7e4bda96c7892ebc4fc3cddaabfe3b5a3a0ea (diff) | |
| download | emacs-05237bb4f5ce2226cd912323e4064f4aaa8673f9.tar.gz | |
(ps-mark-active-p): Function deleted.
(ps-print-preprint-region): Use (mark) for the error check.
Diffstat (limited to 'lisp')
| -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))) |