Function: cperl-map-pods-heres

cperl-map-pods-heres is a byte-compiled function defined in cperl-mode.el.gz.

Signature

(cperl-map-pods-heres FUNC &optional PROP S END)

Documentation

Execute FUNC over regions of pods or here-documents.

Start at S. PROP is the text-property to search for; default to in-pod. Stop at END or when FUNC returns nil.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
(defun cperl-map-pods-heres (func &optional prop s end)
  "Execute FUNC over regions of pods or here-documents.
Start at S.  PROP is the text-property to search for; default to
`in-pod'.  Stop at END or when FUNC returns nil."
  (let (pos posend has-prop (cont t))
    (or prop (setq prop 'in-pod))
    (or s (setq s (point-min)))
    (or end (setq end (point-max)))
    (cperl-update-syntaxification end)
    (save-excursion
      (goto-char (setq pos s))
      (while (and cont (< pos end))
	(setq has-prop (get-text-property pos prop))
	(setq posend (next-single-property-change pos prop nil end))
	(and has-prop
	     (setq cont (funcall func pos posend prop)))
	(setq pos posend)))))