Function: cperl-backward-to-start-of-expr

cperl-backward-to-start-of-expr is a byte-compiled function defined in cperl-mode.el.gz.

Signature

(cperl-backward-to-start-of-expr &optional LIM)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
(defun cperl-backward-to-start-of-expr (&optional lim)
  (condition-case nil
      (progn
	(while (and (or (not lim)
			(> (point) lim))
		    (not (cperl-after-expr-p lim)))
	  (forward-sexp -1)
	  ;; May be after $, @, $# etc of a variable
	  (skip-chars-backward "$@%#")))
    (error nil)))