mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

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