/[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.47 by monnier, Sat May 17 22:38:13 2003 UTC revision 1.48 by monnier, Fri May 23 15:49:16 2003 UTC
# Line 257  The expansion is entirely correct becaus Line 257  The expansion is entirely correct becaus
257      ("\\$ ?{?^?[_a-zA-Z][_a-zA-Z0-9]*\\('\\)[_a-zA-Z]" (1 "_"))      ("\\$ ?{?^?[_a-zA-Z][_a-zA-Z0-9]*\\('\\)[_a-zA-Z]" (1 "_"))
258      ;; format statements      ;; format statements
259      ("^[ \t]*format.*=[ \t]*\\(\n\\)" (1 '(7)))      ("^[ \t]*format.*=[ \t]*\\(\n\\)" (1 '(7)))
     ;; TODO: here-documents ("<<\\(\\sw\\|['\"]\\)")  
260      ;; Funny things in sub arg specifications like `sub myfunc ($$)'      ;; Funny things in sub arg specifications like `sub myfunc ($$)'
261      ("\\<sub\\s-+\\S-+\\s-*(\\([^)]+\\))" 1 '(1))      ("\\<sub\\s-+\\S-+\\s-*(\\([^)]+\\))" 1 '(1))
262      ;; regexp and funny quotes      ;; regexp and funny quotes
263      ("[;(=!~{][ \t\n]*\\(/\\)" (1 '(7)))      ("[?:.,;=!~({[][ \t\n]*\\(/\\)" (1 '(7)))
264      ("[;( =!~{\t\n]\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)"      ("[?:.,;=!~({[ \t\n]\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)"
265       ;; Nasty cases:       ;; Nasty cases:
266       ;; /foo/m  $a->m  $#m $m @m %m       ;; /foo/m  $a->m  $#m $m @m %m
267       ;; \s (appears often in regexps).       ;; \s (appears often in regexps).
268       ;; -s file       ;; -s file
269       (2 (if (assoc (char-after (match-beginning 2))       (2 (if (assoc (char-after (match-beginning 2))
270                     perl-quote-like-pairs)                     perl-quote-like-pairs)
271              '(15) '(7))))))              '(15) '(7))))
272        ;; TODO: here-documents ("<<\\(\\sw\\|['\"]\\)")
273        ))
274    
275  (defvar perl-empty-syntax-table  (defvar perl-empty-syntax-table
276    (let ((st (copy-syntax-table)))    (let ((st (copy-syntax-table)))

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

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