From b1c2c49709c9f2e9a2c0bb715a2e599094483498 Mon Sep 17 00:00:00 2001 From: Craig Earls Date: Sun, 17 Mar 2013 19:56:02 -0700 Subject: Fix bug 917 C-Begin C-End don't keep buffer synced --- lisp/ldg-reconcile.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/ldg-reconcile.el b/lisp/ldg-reconcile.el index c5e20c64..a2c13917 100644 --- a/lisp/ldg-reconcile.el +++ b/lisp/ldg-reconcile.el @@ -344,7 +344,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))))) -- cgit v1.2.3 From 431d7e5b25f7e2997494ace7a0be78492c5d688b Mon Sep 17 00:00:00 2001 From: Craig Earls Date: Sun, 17 Mar 2013 20:01:58 -0700 Subject: Fix bug 915 Save in reconcile mode maintains point. --- lisp/ldg-reconcile.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/ldg-reconcile.el b/lisp/ldg-reconcile.el index a2c13917..40795ca2 100644 --- a/lisp/ldg-reconcile.el +++ b/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. -- cgit v1.2.3