# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1157382206 0
# Node ID abebf4e18f108ad3ccf0d62c2997917eed0656f6
# Parent  9db8c9a68f0fe7134a4a1ff1eb3609b8ca209df7
(kill-region): Explicitly test there is a region.

diff -r 9db8c9a68f0f -r abebf4e18f10 lisp/simple.el
--- a/lisp/simple.el	Mon Sep 04 14:47:52 2006 +0000
+++ b/lisp/simple.el	Mon Sep 04 15:03:26 2006 +0000
@@ -2554,6 +2554,8 @@
   ;; Pass point first, then mark, because the order matters
   ;; when calling kill-append.
   (interactive (list (point) (mark)))
+  (unless (and beg end)
+    (error "The mark is not set now, so there is no region"))
   (condition-case nil
       (let ((string (filter-buffer-substring beg end t)))
 	(when string			;STRING is nil if BEG = END