(defun cperl-next-interpolated-REx-0 () "Move point to next REx which has interpolated parts without //o." (interactive "") (cperl-next-interpolated-REx 0))

(defun cperl-next-interpolated-REx (&optional skip beg limit) "Move point to next REx which has interpolated parts.
SKIP is a list of possible types to skip,
BEG and LIMIT are the starting point and the limit of search (default to point and end of buffer).

SKIP may be a number,
then it behaves as list of numbers up to SKIP; this semantic may be used as a numeric argument.

(defun cperl-time-fontification (&optional l step lim) "Times how long it takes to do incremental fontification in a region.
L is the line to start at,
STEP is the number of lines to skip when doing next incremental fontification,
LIM is the maximal number of incremental fontification to perform.
Messages are accumulated in *Messages* buffer.

;; Called when any modification is made to buffer text. (defun cperl-after-change-function (beg end old-len) ;; We should have been informed about changes by `font-lock'. Since it ;; does not inform as which calls are defered, do it ourselves (if cperl-syntax-done-to (setq cperl-syntax-done-to (min cperl-syntax-done-to beg))))