comparison lisp/progmodes/perl-mode.el @ 90227:10fe5fadaf89

Revision: [e-mail]--gnu-2005/emacs--unicode--0--patch-81 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 532-541) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 112-115) - Update from CVS

90226:df78f2fb8f6a

    ("^[ \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)))
    ("[?:.,;=!~({[ \t\n]\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)"
     ;; Nasty cases:
     ;; /foo/m  $a->m  $#m $m @m %m
     ;; \s (appears often in regexps).
     ;; -s file
     (2 (if (assoc (char-after (match-beginning 2))
		   perl-quote-like-pairs)
	    '(15) '(7))))
    ;; TODO: here-documents ("<<\\(\\sw\\|['\"]\\)")
    ))

90227:10fe5fadaf89

    ("^[ \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)))
    ("\\(^\\|[?:.,;=!~({[ \t]\\)\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)"
     ;; Nasty cases:
     ;; /foo/m  $a->m  $#m $m @m %m
     ;; \s (appears often in regexps).
     ;; -s file
     (3 (if (assoc (char-after (match-beginning 3))
		   perl-quote-like-pairs)
	    '(15) '(7))))
    ;; TODO: here-documents ("<<\\(\\sw\\|['\"]\\)")
    ))