 
 ;;;###autoload
 (defun darcsum-view (directory)
+  "View the contents of the current buffer as a darcs changeset for DIRECTORY.
+More precisely, searches forward from point for the next changeset-like region,
+and attempts to parse that as a darcs patch.
+
+When invoked interactively, prompts for a directory; by default, the current
+working directory is assumed."
   (interactive
    (list (funcall (if (fboundp 'read-directory-name)
 		      'read-directory-name

		      (unless (member change (cdr fentry))
			(nconc fentry (list change))
			(setcdr fentry
				(sort (cdr fentry) 
				      (function darcsum-change-<))))
		    (nconc dentry (list (list (car file) change)))))
	      (setq data (cons (list (car dir)

	  (if (= result 1)
	      (progn (and (interactive-p) (message "No changes!"))
		     nil)
	    (progn (if (member "*darcs-output*"
			       (mapcar (lambda (&rest x)
					 (apply 'buffer-name x))
				       (buffer-list)) )
		       (kill-buffer "*darcs-output*"))
		   (if (fboundp 'clone-buffer)
		       (clone-buffer "*darcs-output*" t))
