From 66a863f0594303f9d741306110f896c1af9b71ac Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 13 Sep 2001 10:12:45 +0000 Subject: [PATCH] (ps-print-region, ps-print-region-with-faces) (ps-nb-pages-region): Signal an error if called interactively and the mark is not active. --- lisp/ChangeLog | 4 ++++ lisp/ps-print.el | 15 ++++++++++++--- 2 files changed, 16 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a7342b1d7f3..e5217519e17 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2001-09-13 Gerd Moellmann + * 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 072a8ee3083..b24add64dd7 100644 --- 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 -- 2.39.5