diff options
| author | Eli Zaretskii | 2023-06-12 18:47:04 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2023-06-12 18:47:04 +0300 |
| commit | aaeaf608d89b866eb13551aa31ad44e2df93b0fd (patch) | |
| tree | e250e1d72b159d7f1249dcc9474dcafb70456947 | |
| parent | 1383efe01d0ee8ba3ea8da5ab41b07f5672191bf (diff) | |
| download | emacs-aaeaf608d89b866eb13551aa31ad44e2df93b0fd.tar.gz emacs-aaeaf608d89b866eb13551aa31ad44e2df93b0fd.zip | |
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. | |||
| 4399 | Otherwise move to the start of the buffer." | 4399 | Otherwise move to the start of the buffer." |
| 4400 | (declare (interactive-only "use `(goto-char (point-min))' instead.")) | 4400 | (declare (interactive-only "use `(goto-char (point-min))' instead.")) |
| 4401 | (interactive "^P") | 4401 | (interactive "^P") |
| 4402 | (when (or (consp arg) | 4402 | (or (consp arg) |
| 4403 | (region-active-p)) | 4403 | (region-active-p) |
| 4404 | (push-mark)) | 4404 | (push-mark)) |
| 4405 | (goto-char (cond | 4405 | (goto-char (cond |
| 4406 | ;; We want to go N/10th of the way from the beginning. | 4406 | ;; We want to go N/10th of the way from the beginning. |
| 4407 | ((and arg (not (consp arg))) | 4407 | ((and arg (not (consp arg))) |