* lisp/simple.el (shell-command-on-region): Replace 'error' with 'user-error'.

(Bug#20785)

diff --git a/lisp/simple.el b/lisp/simple.el
index 48451aacbd6eca8d69968e86031d79a61b2743e9..0729d8c353e91a84527000e03f0f8943d355c4db 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3318,7 +3318,7 @@ display the error buffer if there were any errors.  When called
 interactively, this is t."
   (interactive (let (string)
                 (unless (mark)
-                  (error "The mark is not set now, so there is no region"))
+                  (user-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.