Function: cperl-get-here-doc-region

cperl-get-here-doc-region is a byte-compiled function defined in cperl-mode.el.gz.

Signature

(cperl-get-here-doc-region &optional POS POD)

Documentation

Return HERE document region around the point.

Return nil if the point is not in a HERE document region. If POD is non-nil, will return a POD section if point is in a POD section.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
;; Based on code by Masatake YAMATO:
(defun cperl-get-here-doc-region (&optional pos pod)
  "Return HERE document region around the point.
Return nil if the point is not in a HERE document region.  If POD is non-nil,
will return a POD section if point is in a POD section."
  (or pos (setq pos (point)))
  (cperl-update-syntaxification pos)
  (if (or (eq 'here-doc  (get-text-property pos 'syntax-type))
	  (and pod
	       (eq 'pod (get-text-property pos 'syntax-type))))
      (let ((b (cperl-beginning-of-property pos 'syntax-type))
	    (e (next-single-property-change pos 'syntax-type)))
	(cons b (or e (point-max))))))