diff options
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2007-12-27 14:00:42 +0000 |
|---|---|---|
| committer | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2007-12-27 14:00:42 +0000 |
| commit | 1be05f120f5e57732f5f2860d758736f318e516a (patch) | |
| tree | b80046da82e66d47876b9af564b7ba543b7a5307 /lisp/ps-print.el | |
| parent | 9b64a7f0cf4d2fb716182d26046f645ec58210b3 (diff) | |
| download | emacs-1be05f120f5e57732f5f2860d758736f318e516a.tar.gz | |
Fix ps-print-preprint-region code
Diffstat (limited to 'lisp/ps-print.el')
| -rw-r--r-- | lisp/ps-print.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 2cdb50e76ef..0e442f3b104 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -1501,6 +1501,12 @@ 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 (featurep 'xemacs) + '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)) @@ -4695,7 +4701,7 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th (defun ps-print-preprint-region (prefix-arg) - (or (region-active-p) + (or (ps-mark-active-p) (error "The mark is not set now")) (list (point) (mark) (ps-print-preprint prefix-arg))) |