procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix setting region in the minibuffer

Browse source 
* lisp/minibuffer.el (minibuffer-beginning-of-buffer): Fix setting
region.  (Bug#64022)
This commit is contained in:
Eli Zaretskii 2023-06-12 18:47:04 +03:00
parent 1383efe01d
commit aaeaf608d8
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/minibuffer.el
View file

@ -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." Otherwise move to the start of the buffer."
(declare (interactive-only "use `(goto-char (point-min))' instead.")) (declare (interactive-only "use `(goto-char (point-min))' instead."))
(interactive "^P") (interactive "^P")
(when (or (consp arg) (or (consp arg)
(region-active-p)) (region-active-p)
(push-mark)) (push-mark))
(goto-char (cond (goto-char (cond
;; We want to go N/10th of the way from the beginning. ;; We want to go N/10th of the way from the beginning.
((and arg (not (consp arg))) ((and arg (not (consp arg)))