diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2023-06-12 18:47:04 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2023-06-12 18:47:04 +0300 |
| commit | aaeaf608d89b866eb13551aa31ad44e2df93b0fd (patch) | |
| tree | e250e1d72b159d7f1249dcc9474dcafb70456947 | |
| parent | 1383efe01d0ee8ba3ea8da5ab41b07f5672191bf (diff) | |
| download | emacs-aaeaf608d89b866eb13551aa31ad44e2df93b0fd.tar.gz | |
Fix setting region in the minibuffer
* lisp/minibuffer.el (minibuffer-beginning-of-buffer): Fix setting
region. (Bug#64022)
| -rw-r--r-- | lisp/minibuffer.el | 6 |
1 files 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))) |