From aaeaf608d89b866eb13551aa31ad44e2df93b0fd Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 12 Jun 2023 18:47:04 +0300 Subject: [PATCH] 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))) -- 2.39.2