From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 12 Jun 2023 15:47:04 +0000 (+0300)
Subject: Fix setting region in the minibuffer
X-Git-Tag: emacs-29.0.92~31
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aaeaf608d89b866eb13551aa31ad44e2df93b0fd;p=emacs.git

Fix setting region in the minibuffer

* lisp/minibuffer.el (minibuffer-beginning-of-buffer): Fix setting
region.  (Bug#64022)
---

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 44226449af2..41eb95fd20f 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -4399,9 +4399,9 @@ after the end of the prompt, move to the end of the prompt.
 Otherwise move to the start of the buffer."
   (declare (interactive-only "use `(goto-char (point-min))' instead."))
   (interactive "^P")
-  (when (or (consp arg)
-            (region-active-p))
-    (push-mark))
+  (or (consp arg)
+      (region-active-p)
+      (push-mark))
   (goto-char (cond
               ;; We want to go N/10th of the way from the beginning.
               ((and arg (not (consp arg)))