Function: diary-icalendar-parse-sexp

diary-icalendar-parse-sexp is a byte-compiled function defined in diary-icalendar.el.gz.

Signature

(diary-icalendar-parse-sexp)

Documentation

Parse a diary S-expression at the beginning of the current restriction.

The S-expression must appear at the start of line, immediately after diary-sexp-entry-symbol. If an S-expression is found, move the current restriction past it, and return the S-expression. Otherwise, return nil.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/diary-icalendar.el.gz
(defun di:parse-sexp ()
  "Parse a diary S-expression at the beginning of the current restriction.

The S-expression must appear at the start of line, immediately after
`diary-sexp-entry-symbol'.  If an S-expression is found, move the
current restriction past it, and return the S-expression.  Otherwise,
return nil."
  (goto-char (point-min))
  (let ((regexp (rx line-start
                    (regexp diary-sexp-entry-symbol))))
    (when (re-search-forward regexp (line-end-position) t)
      (let ((sexp (read (current-buffer))))
        (narrow-to-region (point) (point-max))
        sexp))))