Function: cperl-look-at-leading-count

cperl-look-at-leading-count is a byte-compiled function defined in cperl-mode.el.gz.

Signature

(cperl-look-at-leading-count IS-X-REX E)

Documentation

Mark suspicious regexp content up to E.

If IS-X-REX is non-nil, then process a regular expression which has an
/x modifier.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
(defsubst cperl-look-at-leading-count (is-x-REx e)
  "Mark suspicious regexp content up to E.
If IS-X-REX is non-nil, then process a regular expression which has an
/x modifier."
  (if (and
       (< (point) e)
       (re-search-forward (concat "\\=" (if is-x-REx "[ \t\n]*" "") "[{?+*]")
			  (1- e) t))	; return nil on failure, no moving
      (if (eq ?\{ (preceding-char)) nil
	(cperl-postpone-fontification
	 (1- (point)) (point)
         'face 'font-lock-warning-face))))