Function: cperl-after-block-and-statement-beg

cperl-after-block-and-statement-beg is a byte-compiled function defined in cperl-mode.el.gz.

Signature

(cperl-after-block-and-statement-beg LIM)

Documentation

Return non-nil if the preceding ?} ends the statement.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
(defun cperl-after-block-and-statement-beg (lim)
  "Return non-nil if the preceding ?} ends the statement."
  ;;  We assume that we are after ?\}
  (and
   (cperl-after-block-p lim)
   (save-excursion
     (forward-sexp -1)
     (cperl-backward-to-noncomment (point-min))
     (or (bobp)
	 (eq (point) lim)
	 (not (= (char-syntax (preceding-char)) ?w))
	 (progn
	   (forward-sexp -1)
	   (not
	    (looking-at
	     "\\(map\\|grep\\|say\\|printf?\\|system\\|exec\\|tr\\|s\\)\\_>")))))))