From c0cdc5f77c255242722f7922a41e0ac3c5ce5ffe Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Thu, 4 May 2023 21:54:12 +0200 Subject: [PATCH] * lisp/org.el (org-at-heading-p): Do not call redundant `bolp' --- lisp/org.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index 497baa850..57fe046a7 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -20429,7 +20429,7 @@ Respect narrowing." If INVISIBLE-NOT-OK is non-nil, an invisible heading line is not ok." (save-excursion (beginning-of-line) - (and (bolp) (or (not invisible-not-ok) (not (org-fold-folded-p))) + (and (or (not invisible-not-ok) (not (org-fold-folded-p))) (looking-at outline-regexp)))) (defun org-in-commented-heading-p (&optional no-inheritance element)