Re: Iterate over list with `org-next-item'

[Nicolas Goaziou <n.goaziou@gmail.com>]

>>>>> Nick Dokos writes:

> OK, thanks for the pointer: makes sense. I hadn't pulled your
> reimplementation till just now. Of course, these functions didn't
> exist before, so there was no choice - but maybe the few places
> where org-next-item is used need to be examined and brought up to
> snuff, using your new functions? Even if not strictly necessary,
> then at least as examples of good practice for others to follow.

You are right: this should be done. Speed issues may happen otherwise.
I'll look into it on Sunday.

As an example,

--8<---------------cut here---------------start------------->8---
(defun org-skip-over-state-notes ()
  "Skip past the list of State notes in an entry."
  (if (looking-at "\n[ \t]*- State") (forward-char 1))
  (while (looking-at "[ \t]*- State")
    (condition-case nil
	(org-next-item)
      (error (org-end-of-item)))))
--8<---------------cut here---------------end--------------->8---

would become

--8<---------------cut here---------------start------------->8---
(defun org-skip-over-state-notes ()
  "Skip past the list of State notes in an entry."
  (if (looking-at "\n[ \t]*- State") (forward-char 1))
  (if (looking-at "[ \t]*- State") (goto-char (org-list-bottom-point))))
--8<---------------cut here---------------end--------------->8---