From: Juri Linkov <juri@linkov.net>
Date: Mon, 22 Jun 2015 22:45:33 +0000 (+0300)
Subject: * lisp/simple.el (shell-command-on-region): Replace 'error' with 'user-error'.
X-Git-Tag: emacs-25.0.90~1673
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d010523177889867cf572ff48e8729b1503ea5a4;p=emacs.git

* 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 48451aacbd6..0729d8c353e 100644
--- 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.