masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-03 10:53:23 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Avoid infinite recursion under 'rectangle-mark-mode'

Browse source 
* lisp/rect.el (rectangle--region-beginning)
(rectangle--region-end): Avoid infinite recursion.  Patch by Alcor
<alcor@tilde.club>.  Do not merge to master.  (Bug#77973)
This commit is contained in:
Eli Zaretskii 2025-04-27 10:08:38 +03:00
parent b5967dda32
commit d394cd73d1
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/rect.el
View file

@ -766,7 +766,7 @@ Ignores `line-move-visual'."
((not rectangle-mark-mode)
(funcall orig))
(t
(apply #'min (mapcar #'car (region-bounds))))))
(apply #'min (mapcar #'car (let (rectangle-mark-mode) (region-bounds)))))))
(defun rectangle--region-end (orig)
"Like `region-end' but supports rectangular regions."
@ -774,7 +774,7 @@ Ignores `line-move-visual'."
((not rectangle-mark-mode)
(funcall orig))
(t
(apply #'max (mapcar #'cdr (region-bounds))))))
(apply #'max (mapcar #'cdr (let (rectangle-mark-mode) (region-bounds)))))))
(defun rectangle--extract-region (orig &optional delete)
(cond