(ps-print-region, ps-print-region-with-faces)

(ps-nb-pages-region): Signal an error if called interactively
and the mark is not active.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a7342b1d7f3a015d65c27f9cf923b7380f453cb6..e5217519e17ad33e245cb53f0fbac6e421ea41fb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-09-13  Gerd Moellmann  <gerd@gnu.org>
 
+       * ps-print.el (ps-print-region, ps-print-region-with-faces) 
+       (ps-nb-pages-region): Signal an error if called interactively
+       and the mark is not active.
+
        * simple.el (minibuffer-prompt-modification)
        (minibuffer-prompt-insertion): New functions.
        (minibuffer-prompt-properties): Use `modification-hooks' and

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 072a8ee30838bfa4ab9101004e6ee199e6d49e72..b24add64dd744942d43cb918cda4e94342cf9f56 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -3211,7 +3211,10 @@ so it has a way to determine color values."
 (defun ps-print-region (from to &optional filename)
   "Generate and print a PostScript image of the region.
 Like `ps-print-buffer', but prints just the current region."
-  (interactive (list (point) (mark) (ps-print-preprint current-prefix-arg)))
+  (interactive
+   (unless mark-active
+     (error "The mark is not set now"))
+   (list (point) (mark) (ps-print-preprint current-prefix-arg)))
   (ps-print-without-faces from to filename t))
 
 
@@ -3221,7 +3224,10 @@ Like `ps-print-buffer', but prints just the current region."
 Like `ps-print-region', but includes font, color, and underline information in
 the generated image.  This command works only if you are using a window system,
 so it has a way to determine color values."
-  (interactive (list (point) (mark) (ps-print-preprint current-prefix-arg)))
+  (interactive
+   (unless mark-active
+     (error "The mark is not set now"))
+   (list (point) (mark) (ps-print-preprint current-prefix-arg)))
   (ps-print-with-faces from to filename t))
 
 
@@ -3302,7 +3308,10 @@ The table depends on the current ps-print setup."
 (defun ps-nb-pages-region (nb-lines)
   "Display number of pages to print the region, for various font heights.
 The table depends on the current ps-print setup."
-  (interactive (list (count-lines (mark) (point))))
+  (interactive
+   (unless mark-active
+     (error "The mark is not set now"))
+   (list (count-lines (mark) (point))))
   (ps-nb-pages nb-lines))
 
 (defvar ps-prefix-quote nil