Merge branch 'next' into ledger-mode-automatic-transactions

lisp/ldg-reconcile.el

@@ -205,11 +205,13 @@ Return the number of uncleared xacts found."
 (defun ledger-reconcile-save ()
   "Save the ledger buffer."
   (interactive)
-  (dolist (buf (cons ledger-buf ledger-bufs))
-    (with-current-buffer buf
-      (save-buffer)))
-  (set-buffer-modified-p nil)
-  (ledger-display-balance))
+  (let ((curpoint (point)))
+   (dolist (buf (cons ledger-buf ledger-bufs))
+     (with-current-buffer buf
+       (save-buffer)))
+   (set-buffer-modified-p nil)
+   (ledger-display-balance)
+   (goto-char curpoint)))
 
 (defun ledger-reconcile-finish ()
   "Mark all pending posting or transactions as cleared.
@@ -344,7 +346,9 @@ moved and recentered.  If they aren't strange things happen."
   (if (member this-command (list 'next-line
 				 'previous-line
 				 'mouse-set-point
-				 'ledger-reconcile-toggle))
+				 'ledger-reconcile-toggle
+				 'end-of-buffer
+				 'beginning-of-buffer))
       (if ledger-buffer-tracks-reconcile-buffer
 	  (save-excursion
 	    (ledger-reconcile-visit t)))))