Prechádzať zdrojové kódy

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
Ihor Radchenko 3 rokov pred
rodič
commit
0b07b30dea
1 zmenil súbory, kde vykonal 7 pridanie a 3 odobranie
  1. 7 3
      lisp/org-table.el

+ 7 - 3
lisp/org-table.el

@@ -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))))