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

[Eli Zaretskii]

branch: emacs-28
commit 5bc522b4f45f17c44449a05df562d8f0ae00bcb4
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    ; * lisp/simple.el (kill-region): A better fix for bug#51320.
---
 lisp/simple.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index 4aa373d..e3657cc 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)