[Cl-darcs-cvs] r76 - cl-darcs/trunk

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Mon Nov 27 17:26:00 2006
New Revision: 76

Modified:
   cl-darcs/trunk/diff.lisp
Log:
Darcs line numbers start at 1.


Modified: cl-darcs/trunk/diff.lisp
==============================================================================
--- cl-darcs/trunk/diff.lisp	(original)
+++ cl-darcs/trunk/diff.lisp	Mon Nov 27 17:26:00 2006
@@ -77,7 +77,7 @@
 	   (push 
 	    (make-instance 'hunk-patch
 			   :filename filename
-			   :line-number (difflib:opcode-j1 opcode)
+			   :line-number (1+ (difflib:opcode-j1 opcode))
 			   :old (subseq original-lines
 					(difflib:opcode-i1 opcode)
 					(difflib:opcode-i2 opcode))