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.