 						 'where where))
 		      (set-text-properties beg (1- (point))
 					   (list 'face 'ledger-font-reconciler-uncleared-face 
-						 'where where))))
-		(setq index (1+ index)))))
+						 'where where))))  ))
 	  (goto-char (point-max))
-	  (delete-char -1))
+	  (delete-char -1)) ;gets rid of the extra line feed at the bottom of the list
 	(insert (concat "There are no uncleared entries for " account)))
     (goto-char (point-min))
     (set-buffer-modified-p nil)
     (toggle-read-only t)
 
     ; this next piece of code ensures that the last of the visible
-    ; transactions in the ledger buffer is at the bottom of the
-    ; main window.  The key to this is to ensure the window is selected
+    ; transactions in the ledger buffer is at the bottom of the main
+    ; window.  The key to this is to ensure the window is selected
     ; when the buffer point is moved and recentered.  If they aren't
     ; strange things happen.
     

  (if (bufferp (car where))
      (car where)
      (error "buffer not set")))


(defun ledger-reconcile-toggle ()
  (interactive)

     (define-key map [menu-bar ldg-recon-menu sep3] '("--"))
     (define-key map [menu-bar ldg-recon-menu bal] '("Show Cleared Balance" . ledger-display-balance))
     (define-key map [menu-bar ldg-recon-menu sep4] '("--"))
     (define-key map [menu-bar ldg-recon-menu rna] '("Reconcile New Account" . ledger-reconcile))
     (define-key map [menu-bar ldg-recon-menu ref] '("Refresh" . ledger-reconcile-refresh))
     (define-key map [menu-bar ldg-recon-menu sav] '("Save" . ledger-reconcile-save))
     
     (use-local-map map)
     
     (add-hook 'kill-buffer-hook 'ledger-reconcile-quit-cleanup nil t)))
