Function: cperl-after-label

cperl-after-label is a byte-compiled function defined in cperl-mode.el.gz.

Signature

(cperl-after-label)

Documentation

Return non-nil if the point is after label. Does not do save-excursion.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
(defun cperl-after-label ()
  "Return non-nil if the point is after label.  Does not do `save-excursion'."
  (and (eq (preceding-char) ?:)
       (memq (char-syntax (char-after (- (point) 2)))
	     '(?w ?_))
       (progn
	 (backward-sexp)
         (looking-at (rx (sequence (eval cperl--label-rx)
                                   (not (in ":"))))))))