[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/ps-print.el,v
From: |
Vinicius Jose Latorre |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/ps-print.el,v |
Date: |
Thu, 27 Dec 2007 14:00:43 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Vinicius Jose Latorre <viniciusjl> 07/12/27 14:00:42
Index: ps-print.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ps-print.el,v
retrieving revision 1.206
retrieving revision 1.207
diff -u -b -r1.206 -r1.207
--- ps-print.el 26 Dec 2007 16:28:30 -0000 1.206
+++ ps-print.el 27 Dec 2007 14:00:42 -0000 1.207
@@ -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)))