[Emacs-diffs] /srv/bzr/emacs/trunk r105948: * lisp/progmodes/perl-mode.el (perl-syntax-propertize-function):

[Stefan Monnier]

------------------------------------------------------------
revno: 105948
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2011-09-27 22:19:56 -0400
message:
  * lisp/progmodes/perl-mode.el (perl-syntax-propertize-function):
  Don't confuse "y => 3" as the beginning of a `y' operation.
modified:
  lisp/ChangeLog
  lisp/progmodes/perl-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-09-28 01:20:41 +0000
+++ b/lisp/ChangeLog    2011-09-28 02:19:56 +0000
@@ -1,5 +1,8 @@
 2011-09-28  Stefan Monnier  <address@hidden>
 
+       * progmodes/perl-mode.el (perl-syntax-propertize-function):
+       Don't confuse "y => 3" as the beginning of a `y' operation.
+
        * emacs-lisp/debug.el (debug-convert-byte-code): Don't assume the
        object has more than 4 slots (bug#9613).
 

=== modified file 'lisp/progmodes/perl-mode.el'
--- a/lisp/progmodes/perl-mode.el       2011-05-08 18:23:11 +0000
+++ b/lisp/progmodes/perl-mode.el       2011-09-28 02:19:56 +0000
@@ -304,11 +304,12 @@
              (put-text-property (match-beginning 2) (match-end 2)
                                 'syntax-table (string-to-syntax "\""))
              (perl-syntax-propertize-special-constructs end)))))
-      ("\\(^\\|[?:.,;=!~({[ \t]\\)\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> 
\n\t]\\)"
+      ("\\(^\\|[?:.,;=!~({[ 
\t]\\)\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\(?:\\([^])}>= 
\n\t]\\)\\|\\(?3:=\\)[^>]\\)"
        ;; Nasty cases:
        ;; /foo/m  $a->m  $#m $m @m %m
        ;; \s (appears often in regexps).
        ;; -s file
+       ;; y => 3
        ;; sub tr {...}
        (3 (ignore
            (if (save-excursion (goto-char (match-beginning 0))