Fixes workflow for using toggle-pending with clear-whole-transactions

lisp/ldg-reconcile.el

@@ -83,7 +83,6 @@
 (defun ledger-reconcile-toggle ()
   (interactive)
   (let ((where (get-text-property (point) 'where))
-        (account ledger-acct)
         (inhibit-read-only t)
         status)
     (when (ledger-reconcile-get-buffer where)
@@ -173,7 +172,9 @@
   (ledger-display-balance))
 
 (defun ledger-reconcile-finish ()
-  "Mark all pending transactions as cleared, save the buffers and exit reconcile mode"
+  "Mark all pending posting or transactions as cleared, depending
+   on ledger-reconcile-clear-whole-transactions, save the buffers
+   and exit reconcile mode"
   (interactive)
   (save-excursion
     (goto-char (point-min))

lisp/ldg-state.el

@@ -219,11 +219,16 @@ dropped."
             (progn
               (delete-char 1)
               (if (and style (eq style 'cleared))
-                  (insert " *")))
+                  (progn 
+		    (insert " *")
+		    (setq status 'cleared))))
 	    (if (and style (eq style 'pending))
-		(insert " ! ")
-		(insert " * "))
-	    (setq status t))))
+		(progn
+		  (insert " ! ")
+		  (setq status 'pending))
+		(progn
+		  (insert " * ")
+		  (setq status 'cleared))))))
     status))
 
 (provide 'ldg-state)