Mercurial > emacs
changeset 87433:410e13519acb
Fix ps-print-preprint-region code
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
|---|---|
| date | Thu, 27 Dec 2007 14:00:42 +0000 |
| parents | 315124ffb889 |
| children | 4d223562bbfa |
| files | lisp/ChangeLog lisp/ps-print.el |
| diffstat | 2 files changed, 13 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Dec 27 11:26:27 2007 +0000 +++ b/lisp/ChangeLog Thu Dec 27 14:00:42 2007 +0000 @@ -1,3 +1,9 @@ +2007-12-27 Vinicius Jose Latorre <viniciusjl@ig.com.br> + + * ps-print.el (ps-mark-active-p): Fun returned back. + (ps-print-preprint-region): Use `ps-mark-active-p' instead of + `region-active-p' for error checking. + 2007-12-27 Eric S. Raymond <esr@snark.thyrsus.com> * (vc.el, vc-sccs.el, vc-rcs.el, vc-cs.el, vc-mcvs.el): Put
--- a/lisp/ps-print.el Thu Dec 27 11:26:27 2007 +0000 +++ b/lisp/ps-print.el Thu Dec 27 14:00:42 2007 +0000 @@ -1501,6 +1501,12 @@ (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 @@ (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)))