 				 'previous-line
 				 'mouse-set-point
 				 'ledger-reconcile-toggle))
-      (save-excursion
-        (ledger-reconcile-visit t))))
+      (if ledger-buffer-tracks-reconcile-buffer
+	  (save-excursion
+	    (ledger-reconcile-visit t)))))
 
 (defun ledger-reconcile (account)
   (interactive "sAccount to reconcile: ")

      (cons
       buf
       (save-excursion
	 (goto-line (nth 1 emacs-xact))
	 (point-marker))))))

(defun ledger-do-reconcile ()

        (account ledger-acct)
        (inhibit-read-only t)
        cleared)
    (when (ledger-reconcile-get-buffer where)
      (with-current-buffer (ledger-reconcile-get-buffer where)
	(goto-char (cdr where))
	(setq cleared (ledger-toggle-current)))
	;remove the existing face and add the new face
      (remove-text-properties (line-beginning-position)
			      (line-end-position)
