From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 21 Oct 2021 19:29:37 +0000 (+0300)
Subject: ; * lisp/simple.el (kill-region): A better fix for bug#51320.
X-Git-Tag: emacs-28.0.90~222
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5bc522b4f45f17c44449a05df562d8f0ae00bcb4;p=emacs.git

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

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)