address@hidden: [patch] cperl-mode 5.22 indentation fix]

[Richard Stallman]

Would someone please DTRT and ack?

------- Start of forwarded message -------
X-Spam-Status: No, score=0.0 required=5.0 tests=UNPARSEABLE_RELAY 
        autolearn=failed version=3.1.0
Date: Wed, 27 Jun 2007 06:49:43 +0200
From: Stanislaw Halik <address@hidden>
To: address@hidden
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
Subject: [patch] cperl-mode 5.22 indentation fix

Heya,

I'm using the emacs-unicode-2 branch with cperl-mode 5.22. However,
reindenting `foreach_foo()' changes it to `foreach _foo()' which is far
from desirable.

I already tried latest cperl-mode 5.23 which fixes the bug, but font
lock is horribly broken in that version.

The patch follows:

- --- -   2007-06-27 06:48:26.204236147 +0200
+++ cperl-mode.el       2007-06-27 06:48:01.000000000 +0200
@@ -5178,7 +5178,7 @@
        ;; Looking at:
        ;; else   {
        (if (looking-at
- -            "[ \t]*}?[ 
\t]*\\<\\(\\els\\(e\\|if\\)\\|continue\\|unless\\|if\\|while\\|for\\(each\\)?\\|until\\)\\>\\(\t*\\|[
 \t][ \t]+\\)[^ \t\n#]")
+            "[ \t]*}?[ 
\t]*\\<\\(\\els\\(e\\|if\\)\\|continue\\|unless\\|if\\|while\\|for\\(each\\)?\\|until\\)\\>\\(\t*\\|[
 \t][ \t]+\\)[^ a-zA-Z_\t\n#]")
            (progn
              (forward-word 1)
              (delete-horizontal-space)

It doesn't appear to break anything.

TIA,
/sh

- -- 
  /\    
   /   Unix stuff      :: http://tehran.lain.pl
 \ \/  Yet Another RBL :: http://rbl.lain.pl
\/\    Web hosting     :: http://insane.pl


_______________________________________________
bug-gnu-emacs mailing list
address@hidden
http://lists.gnu.org/mailman/listinfo/bug-gnu-emacs
------- End of forwarded message -------