Function: org-skip-over-state-notes

org-skip-over-state-notes is a byte-compiled function defined in org.el.gz.

Signature

(org-skip-over-state-notes)

Documentation

Skip past the list of State notes in an entry.

The point is assumed to be on a list of State notes, each matching org-log-note-headings. The function moves point to the first list item that is not a State note or to the end of the list if all the items are State notes.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org.el.gz
(defun org-skip-over-state-notes ()
  "Skip past the list of State notes in an entry.
The point is assumed to be on a list of State notes, each matching
`org-log-note-headings'.  The function moves point to the first list
item that is not a State note or to the end of the list if all the
items are State notes."
  (when (ignore-errors (goto-char (org-in-item-p)))
    (let* ((struct (org-list-struct))
	   (prevs (org-list-prevs-alist struct))
	   (regexp
	    (concat "[ \t]*- +"
		    (replace-regexp-in-string
		     " +" " +"
		     (org-replace-escapes
		      (regexp-quote (cdr (assq 'state org-log-note-headings)))
		      `(("%d" . ,org-ts-regexp-inactive)
			("%D" . ,org-ts-regexp)
			("%s" . "\\(?:\"\\S-+\"\\)?")
			("%S" . "\\(?:\"\\S-+\"\\)?")
			("%t" . ,org-ts-regexp-inactive)
			("%T" . ,org-ts-regexp)
			("%u" . ".*?")
			("%U" . ".*?")))))))
      (while (looking-at-p regexp)
	(goto-char (or (org-list-get-next-item (point) struct prevs)
		       (org-list-get-item-end (point) struct)))))))