interactive in ledger-reconcile only needs one arg

This commit is contained in:
Drew Raines 2009-02-25 11:17:04 -06:00 committed by John Wiegley
parent 8216db1f15
commit e323171147

View file

@ -607,7 +607,7 @@ dropped."
(toggle-read-only t))) (toggle-read-only t)))
(defun ledger-reconcile (account) (defun ledger-reconcile (account)
(interactive "sAccount to reconcile: \nP") (interactive "sAccount to reconcile: ")
(let ((buf (current-buffer)) (let ((buf (current-buffer))
(rbuf (get-buffer "*Reconcile*"))) (rbuf (get-buffer "*Reconcile*")))
(if rbuf (if rbuf