CVS: sml/sml-mode sml-move.el,1.11,1.12

Update of /cvsroot/smlnj/sml/sml-mode
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15799

Modified Files:
	sml-move.el 
Log Message:
(sml-find-match-forward): Avoid infinite looping if the
construct is not properly closed (yet).


Index: sml-move.el
===================================================================
RCS file: /cvsroot/smlnj/sml/sml-mode/sml-move.el,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** sml-move.el	15 Nov 2004 03:50:16 -0000	1.11
--- sml-move.el	20 Nov 2005 23:45:58 -0000	1.12
***************
*** 130,134 ****
  	(forward-sexp-function nil)
  	(either (concat this "\\|" match)))
!     (while (> level 0)
        (forward-sexp 1)
        (while (not (or (eobp) (sml-looking-back-at either)))
--- 130,134 ----
  	(forward-sexp-function nil)
  	(either (concat this "\\|" match)))
!     (while (and (not (eobp)) (> level 0))
        (forward-sexp 1)
        (while (not (or (eobp) (sml-looking-back-at either)))



-------------------------------------------------------
This SF.Net email is sponsored by the JBoss Inc.  Get Certified Today
Register for a JBoss Training Course.  Free Certification Exam
for All Training Attendees Through End of 2005. For more info visit:
http://ads.osdn.com/?ad_id=7628&alloc_id=16845&op=click