From 5bc522b4f45f17c44449a05df562d8f0ae00bcb4 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 21 Oct 2021 22:29:37 +0300 Subject: [PATCH] ; * 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 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) -- 2.39.2