branch: master
commit 16997d889832160850b89031edfc5e9a30d9cb17
Author: fabacino <[email protected]>
Commit: fabacino <[email protected]>
counsel.el (counsel-org-goto--get-headlines): Fix point-min bug
outline-next-heading was always called once before starting the
processing of the headlines, which resulted in the first headline to
be excluded from the list if it was located at the very top of the
file i.e. at point-min.
The fixed function now checks if point is already on a heading and
only calls outline-next-heading if this is not the case before
starting the processing of the headlines.
---
counsel.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/counsel.el b/counsel.el
index 0fc5f1e..4eca148 100644
--- a/counsel.el
+++ b/counsel.el
@@ -2358,7 +2358,10 @@ to custom."
stack
(stack-level 0))
(goto-char (point-min))
- (while (setq start-pos (outline-next-heading))
+ (setq start-pos (or (and (org-at-heading-p)
+ (point))
+ (outline-next-heading)))
+ (while start-pos
(let ((name (org-get-heading
(not counsel-org-goto-display-tags)
(not counsel-org-goto-display-todo)))
@@ -2386,7 +2389,8 @@ to custom."
(when (eq counsel-org-goto-display-style 'headline)
(setq name (concat (make-string level ?*) " " name)))
(setq name (counsel-org-goto--add-face name level))))
- (push `(,name . ,(point-marker)) entries)))
+ (push `(,name . ,(point-marker)) entries))
+ (setq start-pos (outline-next-heading)))
(nreverse entries))))
(defun counsel-org-goto--add-face (name level)
