GNU bug report logs - #11966
24.1; cperl-mode with evil-mode causes hang on syntax-propertize

Previous Next

Full log

Message #11 received at 11966 <at> debbugs.gnu.org (full text, mbox):

From: JC Petkovich <jcpetkovich <at> gmail.com>
To: Stefan Monnier <monnier <at> iro.umontreal.ca>
Cc: 11966 <at> debbugs.gnu.org
Subject: Re: bug#11966: 24.1;
	cperl-mode with evil-mode causes hang on syntax-propertize
Date: Wed, 18 Jul 2012 03:41:54 -0400

[Message part 1 (text/plain, inline)]

I'm afraid the patch does not appear to do anything. Same symptoms.

Same procedure was used to reproduce, using a patched cperl-mode.el instead
(I made sure it was not loading the old elc, I moved it elsewhere).

Jean-Christophe Petkovich


On Wed, Jul 18, 2012 at 3:28 AM, Stefan Monnier <monnier <at> iro.umontreal.ca>wrote:

> > Emacs hangs on the creation of a newline with evil-ret when in a cperl
> > buffer with some POD documentation after the __END__. This doesn't
> > appear to be a bug in evil, but instead a bug in cperl or
> > syntax-propertize,
> > but I can't tell for sure.
>
> Before I dive further into this, can you first check whether the bug-fix
> for bug#11739 (see patch below) happens to fix your problem as well?
>
>
>         Stefan
>
>
> === modified file 'lisp/progmodes/cperl-mode.el'
> --- lisp/progmodes/cperl-mode.el        2012-01-19 07:21:25 +0000
> +++ lisp/progmodes/cperl-mode.el        2012-07-06 20:57:58 +0000
> @@ -8951,14 +8951,15 @@
>        (setq cperl-syntax-done-to (min cperl-syntax-done-to beg))))
>
>  (defun cperl-update-syntaxification (from to)
> -  (if (and cperl-use-syntax-table-text-property
> -          cperl-syntaxify-by-font-lock
> -          (or (null cperl-syntax-done-to)
> -              (< cperl-syntax-done-to to)))
> -      (progn
> -       (save-excursion
> -         (goto-char from)
> -         (cperl-fontify-syntaxically to)))))
> +  (cond
> +   ((not cperl-use-syntax-table-text-property) nil)
> +   ((fboundp 'syntax-propertize) (syntax-propertize to))
> +   ((and cperl-syntaxify-by-font-lock
> +         (or (null cperl-syntax-done-to)
> +             (< cperl-syntax-done-to to)))
> +    (save-excursion
> +      (goto-char from)
> +      (cperl-fontify-syntaxically to)))))
>
>  (defvar cperl-version
>    (let ((v  "Revision: 6.2"))
>
>

[Message part 2 (text/html, inline)]

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.