[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/perl-mode.el, v [EMACS_22_
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/perl-mode.el, v [EMACS_22_BASE] |
Date: |
Thu, 16 Aug 2007 14:20:41 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Stefan Monnier <monnier> 07/08/16 14:20:40
Index: progmodes/perl-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/perl-mode.el,v
retrieving revision 1.69.2.1
retrieving revision 1.69.2.2
diff -u -b -r1.69.2.1 -r1.69.2.2
--- progmodes/perl-mode.el 25 Jul 2007 04:29:29 -0000 1.69.2.1
+++ progmodes/perl-mode.el 16 Aug 2007 14:20:36 -0000 1.69.2.2
@@ -267,8 +267,16 @@
("^[ \t]*format.*=[ \t]*\\(\n\\)" (1 '(7)))
;; Funny things in sub arg specifications like `sub myfunc ($$)'
("\\<sub\\s-+\\S-+\\s-*(\\([^)]+\\))" 1 '(1))
- ;; regexp and funny quotes
- ("[?:.,;=!~({[][ \t\n]*\\(/\\)" (1 '(7)))
+ ;; Regexp and funny quotes.
+ ("\\(?:[?:.,;=!~({[]\\|\\(^\\)\\)[ \t\n]*\\(/\\)"
+ (2 (if (and (match-end 1)
+ (save-excursion
+ (goto-char (match-end 1))
+ (skip-chars-backward " \t\n")
+ (not (memq (char-before)
+ '(?? ?: ?. ?, ?\; ?= ?! ?~ ?\( ?\[)))))
+ nil ;; A division sign instead of a regexp-match.
+ '(7))))
("\\(^\\|[?:.,;=!~({[ \t]\\)\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}>
\n\t]\\)"
;; Nasty cases:
;; /foo/m $a->m $#m $m @m %m
- [Emacs-diffs] Changes to emacs/lisp/progmodes/perl-mode.el, v [EMACS_22_BASE],
Stefan Monnier <=