martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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)
(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