1 files changed, 6 insertions, 3 deletions

diff --git a/lisp/simple.el b/lisp/simple.el
index 4aa373d6701..e3657cc079e 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -5289,9 +5289,12 @@ Supply two arguments, character positions BEG and END indicating the
  this command always kills the current region."
   ;; Pass mark first, then point, because the order matters when
   ;; calling `kill-append'.
-  (interactive (list (mark) (point) 'region))
-  (unless (or region (and beg end))
-    (user-error "The mark is not set now, so there is no region"))
+  (interactive (progn
+                 (let ((beg (mark))
+                       (end (point)))
+                   (unless (and beg end)
+                     (user-error "The mark is not set now, so there is no region"))
+                   (list beg end 'region))))
   (condition-case nil
       (let ((string (if region
                         (funcall region-extract-function 'delete)