[svn] r6476: nemerle/trunk/misc/nemerle.el

[pitkali]

Log:
Added workaround of weird forward-line behaviour.

Author: pitkali
Date: Sat Jul 29 09:24:45 2006
New Revision: 6476

Modified:
   nemerle/trunk/misc/nemerle.el

Modified: nemerle/trunk/misc/nemerle.el
==============================================================================
--- nemerle/trunk/misc/nemerle.el	(original)
+++ nemerle/trunk/misc/nemerle.el	Sat Jul 29 09:24:45 2006
@@ -363,7 +363,7 @@
 	  (setq line (nemerle-analyze-line))
 	  (if (and (eq line 'match-case) (eq (nth 0 (parse-partial-sexp (point) begin)) 1))
 		 (setq in-match-case t))
-	  (if (> (forward-line 1) 0)
+	  (if (or (> (forward-line 1) 0) (eq (point) end))
 	      (setq at-end t))
 	  (beginning-of-line))
 	  in-match-case))))