; * lisp/simple.el (kill-region): A better fix for bug#51320.

diff --git a/lisp/simple.el b/lisp/simple.el
index 4aa373d670165e04432624baad2d8341a5cd05e3..e3657cc079e0037581cf1919585e215f5b432a23 100644 (file)
--- 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)