(push (substring h 0 61) l))))))

                  (push h l))))))

  (and (= (length rev) 61)
       (eq (aref rev 14) ?-)
       (eq (aref rev 20) ?-)

  (and (= (length rev) 40)

  (message rev)

	    (vc-do-command t 0 vc-darcs-program-name file

	    (vc-do-command t 0 vc-darcs-program-name '()

			   "--from-match" (concat "hash " rev)
			   "--to-match" (concat "hash " rev))

			   "--hash" rev)

		 (begin (point)))

		 (begin (point))
         )
        (insert (format "%-40s " rev))