emacs-29 aaeaf608d89: Fix setting region in the minibuffer

[Eli Zaretskii]

branch: emacs-29
commit aaeaf608d89b866eb13551aa31ad44e2df93b0fd
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    Fix setting region in the minibuffer
    
    * lisp/minibuffer.el (minibuffer-beginning-of-buffer): Fix setting
    region.  (Bug#64022)
---
 lisp/minibuffer.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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)))