 ;; changes; RET on a directory reveals changes to its files.
 ;;
 ;; Displayed changes may be recorded with "c", which offers a buffer
-;; for inputing the change name (first line) and long description
+;; for inputting the change name (first line) and long description
 ;; (subsequent lines).  C-c C-c records the patch.
 ;;
 ;; If you only want to record a part of your changes, you need to mark

    (binary . "Modified binary")))

(defun darcsum-item-status (item)
  "Return file-status displayed with item."
  (cdr (assq (darcsum-visible-item item) darcsum-item-status-alist)))

(eval-and-compile

(defvar darcsum-parent-buffer nil)
(defvar darcsum-changeset-to-record nil)
(defvar darcsum-logfile)

(defvar darcsum-window-configuration-temp nil)

(defsubst darcsum-remember-window-configuration ()
  (setq darcsum-window-configuration-temp (list (current-window-configuration)
					   (point-marker))))
(defsubst darcsum-recall-window-configuration ()
  (if darcsum-window-configuration-temp
      (progn
	 (set-window-configuration (car darcsum-window-configuration-temp))
	 (goto-char (cadr darcsum-window-configuration-temp)))
    (error "No window configuration to restore.")))

(defsubst darcsum-changes-handled ()
  (if (buffer-live-p darcsum-parent-buffer)
