# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1012537202 0
# Node ID 27a9a1ef61f9f55be5b5eb494e4b19a9fdf59739
# Parent  46823e7a2caeefb3e129803b6e18a9bf1b159e7c
(shell-command-on-region): Err if no mark before reading the command string.

diff -r 46823e7a2cae -r 27a9a1ef61f9 lisp/simple.el
--- a/lisp/simple.el	Fri Feb 01 04:18:46 2002 +0000
+++ b/lisp/simple.el	Fri Feb 01 04:20:02 2002 +0000
@@ -1421,13 +1421,15 @@
 If it is nil, error output is mingled with regular output.
 In an interactive call, the variable `shell-command-default-error-buffer'
 specifies the value of ERROR-BUFFER."
-  (interactive (let ((string
-		      ;; Do this before calling region-beginning
-		      ;; and region-end, in case subprocess output
-		      ;; relocates them while we are in the minibuffer.
-		      (read-from-minibuffer "Shell command on region: "
-					    nil nil nil
-					    'shell-command-history)))
+  (interactive (let (string)
+		 (unless (mark)
+		   (error "The mark is not set now, so there is no region"))
+		 ;; Do this before calling region-beginning
+		 ;; and region-end, in case subprocess output
+		 ;; relocates them while we are in the minibuffer.
+		 (setq string (read-from-minibuffer "Shell command on region: "
+						    nil nil nil
+						    'shell-command-history))
 		 ;; call-interactively recognizes region-beginning and
 		 ;; region-end specially, leaving them in the history.
 		 (list (region-beginning) (region-end)