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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Mon Nov 27 19:29:54 2006
New Revision: 82

Modified:
   cl-darcs/trunk/record.lisp
Log:
Display patches before asking whether to record them.
Handle recording with empty log message.


Modified: cl-darcs/trunk/record.lisp
==============================================================================
--- cl-darcs/trunk/record.lisp	(original)
+++ cl-darcs/trunk/record.lisp	Mon Nov 27 19:29:54 2006
@@ -33,7 +33,8 @@
 		       (format nil "~4,'0d~2,'0d~2,'0d~2,'0d~2,'0d~2,'0d"
 			       year month date hour minute second))
 		     date)
-	   :log (split-sequence:split-sequence #\Newline log)))
+	   :log (when log
+		    (split-sequence:split-sequence #\Newline log))))
 	 (patch (make-instance 'named-patch
 			       :patchinfo patchinfo
 			       :dependencies nil
@@ -60,6 +61,7 @@
     (loop while (setf patches (remove nil patches))
        do
        ;; Should we include this patch? 
+       (display-patch (car patches) *query-io*)
        (if (y-or-n-p "Record patch ~A?" (car patches))
 	   (progn
 	     ;; Yes, just add it to the list and go on.