/[emacs]/emacs/lisp/progmodes/perl-mode.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/perl-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.60 by lektu, Tue Aug 30 11:11:04 2005 UTC revision 1.61 by monnier, Wed Sep 7 19:54:49 2005 UTC
# Line 267  The expansion is entirely correct becaus Line 267  The expansion is entirely correct becaus
267      ("\\<sub\\s-+\\S-+\\s-*(\\([^)]+\\))" 1 '(1))      ("\\<sub\\s-+\\S-+\\s-*(\\([^)]+\\))" 1 '(1))
268      ;; regexp and funny quotes      ;; regexp and funny quotes
269      ("[?:.,;=!~({[][ \t\n]*\\(/\\)" (1 '(7)))      ("[?:.,;=!~({[][ \t\n]*\\(/\\)" (1 '(7)))
270      ("[?:.,;=!~({[ \t\n]\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)"      ("\\(^\\|[?:.,;=!~({[ \t]\\)\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)"
271       ;; Nasty cases:       ;; Nasty cases:
272       ;; /foo/m  $a->m  $#m $m @m %m       ;; /foo/m  $a->m  $#m $m @m %m
273       ;; \s (appears often in regexps).       ;; \s (appears often in regexps).
274       ;; -s file       ;; -s file
275       (2 (if (assoc (char-after (match-beginning 2))       (3 (if (assoc (char-after (match-beginning 3))
276                     perl-quote-like-pairs)                     perl-quote-like-pairs)
277              '(15) '(7))))              '(15) '(7))))
278      ;; TODO: here-documents ("<<\\(\\sw\\|['\"]\\)")      ;; TODO: here-documents ("<<\\(\\sw\\|['\"]\\)")

Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26