I finally got to try the patch below. It seems to be ok. It fixed the run-away split syntax I saw. I'll continue to use it and watch for other things.
Thanks Can someone point me at what may be causng the perl-mode colors on linux to be different then on solaris. Quoted text is blue on solaris but a real light flesh color on linux. > Cc: [email protected] > From: Stefan Monnier <[EMAIL PROTECTED]> > Date: Wed, 16 Nov 2005 22:20:41 -0500 > MIME-Version: 1.0 > Content-Type: text/plain; charset=us-ascii > > > This code below confuses perl-mode. The comma in split /,/, ... causes > > everything after it to be indented and hi-lighted wrong. > > The best I could come up with so far is the patch below. Please try it. > It's a real pain in the rear to have to do so much effort just for this one > special case. > > But it's really non trivial since I have to be able to tell the difference > between > > $tmp = split / $foo / > and > $tmp = $ split / $foo / > or > $tmp = $# split /$ foo / > > > -- Stefan > > > Index: perl-mode.el > =================================================================== > RCS file: /cvsroot/emacs/emacs/lisp/progmodes/perl-mode.el,v > retrieving revision 1.62 > diff -u -u -b -r1.62 perl-mode.el > --- perl-mode.el 2 Nov 2005 17:33:28 -0000 1.62 > +++ perl-mode.el 17 Nov 2005 03:17:48 -0000 > @@ -267,7 +267,12 @@ > ;; Funny things in sub arg specifications like `sub myfunc ($$)' > ("\\<sub\\s-+\\S-+\\s-*(\\([^)]+\\))" 1 '(1)) > ;; regexp and funny quotes > - ("[?:.,;=!~({[][ \t\n]*\\(/\\)" (1 '(7))) > + ("\\(?:[?:.,;=!~({[]\\|\\<split\\)[ \t\n]*\\(/\\)" > + (1 (if (or (not (eq (char-after (match-beginning 0)) ?s)) > + (save-excursion (goto-char (match-beginning 0)) > + (skip-chars-backward " \t") > + (not (memq (char-before) '(?$ ?# ?% ?@))))) > + '(7)))) > ("\\(^\\|[?:.,;=!~({[ > \t]\\)\\([msy]\\|q[qxrw]?\\|tr\\)\\>\\s-*\\([^])}> \n\t]\\)" > ;; Nasty cases: > ;; /foo/m $a->m $#m $m @m %m > _______________________________________________ emacs-pretest-bug mailing list [email protected] http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
