Selaa lähdekoodia

org-fold--reveal-outline-maybe: Prevent wrong-side-of-point error

* lisp/org-fold.el (org-fold--reveal-outline-maybe): Fix scenario when
point is moved beyond REGION.
Ihor Radchenko 3 vuotta sitten
vanhempi
commit
2778972509
1 muutettua tiedostoa jossa 3 lisäystä ja 2 poistoa
  1. 3 2
      lisp/org-fold.el

+ 3 - 2
lisp/org-fold.el

@@ -958,8 +958,9 @@ This function is intended to be used as :fragile property of
      ;; Never hide level 1 headlines
      (save-excursion
        (goto-char (line-end-position))
-       (when (re-search-forward (rx bol "* ") (cdr region) t)
-         (org-fold-region (match-beginning 0) (line-end-position) nil 'headline)))
+       (unless (>= (point) (cdr region))
+         (when (re-search-forward (rx bol "* ") (cdr region) t)
+           (org-fold-region (match-beginning 0) (line-end-position) nil 'headline))))
      ;; Check the validity of headline
      (unless (let ((case-fold-search t))
 	       (looking-at (rx-to-string