 ;; - Interface to darcs changes
 ;; - Changes from "replace" aren't shown
 ;; - Interface to darcs replace
-;; - Interface to darcs changes / darcs unrecord / darcs amend
+;; - Interface to darcs unrecord
 
 ;;; Code:
 

    "--"
    ["Re-examine"		darcsum-redo		t]
    ["Record changes"		darcsum-record		t] ; fixme: condition
;;     ["Tag"			darcsum-tag		t]
    ["Undo changes"		darcsum-revert		t] ; fixme: condition
    ["Add"			darcsum-add		(darcsum-line-is 'new)]

	(message "No changes sent.")
	(kill-buffer (current-buffer)))

       ((looking-at "\n*Do you really want to .+\\? ") ;; Should the last whitespace be there?
	(process-send-string proc "y\n")
	(delete-region (point-min) (point-max)))
       ((looking-at "\n*Finished reverting.")
