[Emacs-diffs] Changes to emacs/lisp/ps-print.el,v

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       07/12/25 22:50:08

Index: ps-print.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ps-print.el,v
retrieving revision 1.204
retrieving revision 1.205
diff -u -b -r1.204 -r1.205
--- ps-print.el 27 Nov 2007 04:11:20 -0000      1.204
+++ ps-print.el 25 Dec 2007 22:50:08 -0000      1.205
@@ -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)))