branch: externals/org
commit af1478121ff3292ae3b7d60878e91b539c51e60f
Author: Ihor Radchenko <[email protected]>
Commit: Ihor Radchenko <[email protected]>
Fix uses of `move-beginning-of-line' where accounting for visibility is
unexpected
* lisp/org.el (org-at-keyword-p):
(org-at-drawer-p): Use `forward-line' that is what is intended.
Reported-by: Jonas Bernoulli <[email protected]>
Link: https://orgmode.org/list/[email protected]
---
lisp/org.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/org.el b/lisp/org.el
index 977d04c820..d29d4e4e13 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -21313,13 +21313,13 @@ Optional argument ELEMENT contains element at point."
(defun org-at-keyword-p nil
"Return t if cursor is at a keyword-line."
(save-excursion
- (move-beginning-of-line 1)
+ (forward-line 0)
(looking-at org-keyword-regexp)))
(defun org-at-drawer-p nil
"Return t if cursor is at a drawer keyword."
(save-excursion
- (move-beginning-of-line 1)
+ (forward-line 0)
(looking-at org-drawer-regexp)))
(defun org-at-block-p nil
