tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

orgtbl-toggle-comment: Fix when table is at `point-min' or `point-max' 

* lisp/org-table.el (orgtbl-toggle-comment): Avoid infinite loop when
begin/end line of the table is at `point-min' or `point-max'.

Fixes https://orgmode.org/list/874k20v7sj.fsf@gmail.com
This commit is contained in:
Ihor Radchenko 2022-05-09 21:29:16 +08:00
parent 717f83bf75
commit 0b07b30dea
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org-table.el
View File

@ -5543,10 +5543,14 @@ First element has index 0, or I0 if given."
beg end)
(save-excursion
(beginning-of-line 1)
(while (looking-at re) (beginning-of-line 0))
(beginning-of-line 2)
(while (and (not (eq (point) (point-min)))
(looking-at re))
(beginning-of-line 0))
(unless (eq (point) (point-min)) (beginning-of-line 2))
(setq beg (point))
(while (looking-at re) (beginning-of-line 2))
(while (and (not (eq (point) (point-max)))
(looking-at re))
(beginning-of-line 2))
(setq end (point)))
(comment-region beg end (if commented '(4) nil))))