[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#33114: 25.2; Emacs hangs on closing a perenthesis in a regexp in cpe
From: |
Eli Zaretskii |
Subject: |
bug#33114: 25.2; Emacs hangs on closing a perenthesis in a regexp in cperl mode |
Date: |
Tue, 23 Oct 2018 18:19:59 +0300 |
> From: Vincent Lefevre <vincent@vinc17.net>
> Date: Mon, 22 Oct 2018 02:37:49 +0200
>
>
> Consider the following file:
>
> # -*- mode: cperl -*-
> s/./(/e;
>
> 1. Open it with "emacs -Q".
> 2. Put the cursor just after the opening parenthesis.
> 3. Type ')' (closing parenthesis).
>
> This makes Emacs hang. A C-g alone has no effect. Several C-g in a row
> may give the control back to the user.
Does the patch below produce good results? (I don't use CPerl mode,
so I don't know if the highlighting after the change is correct.)
Thanks.
--- lisp/progmodes/cperl-mode.el~0 2018-06-11 06:32:21.000000000 +0300
+++ lisp/progmodes/cperl-mode.el 2018-10-23 18:02:06.924582600 +0300
@@ -8786,7 +8786,7 @@
(goto-char new-beg)))
(setq beg (point))
(goto-char end)
- (while (and end
+ (while (and end (< end (point-max))
(progn
(or (bolp) (condition-case nil
(forward-line 1)