Subject: Re: bug#15778: 24.3; cperl-mode causes emacs to lock up

From: Stefan Monnier <[email-masked]>
Date: Sun, 03 Nov 2013 20:48:46 -0500

> -      (if (setq beg (cperl-beginning-of-property beg 'syntax-type))
> -	  (goto-char beg)))
> +      (let ((new-beg (cperl-beginning-of-property beg 'syntax-type)))
> +	(setq beg (if (= new-beg beg) nil new-beg))
> +	(goto-char new-beg)))

Hmm... what if new-beg is nil?
The current code explicitly tests this case to avoid calling
`goto-char', whereas your code calls goto-char unconditionally.
Why?

        Stefan