sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Bug 915 maintain point in buffer when saved.

Browse source
This commit is contained in:
Craig Earls 2013-03-23 20:22:40 -07:00
parent f855d7e745
commit 0bcef93e29
1 changed files with 15 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/ldg-reconcile.el
View file

@ -159,13 +159,14 @@ Return the number of uncleared xacts found."
"Refresh the recon-window after the ledger buffer is saved." "Refresh the recon-window after the ledger buffer is saved."
(let ((curbuf (current-buffer)) (let ((curbuf (current-buffer))
(curpoint (point)) (curpoint (point))
(buf (get-buffer ledger-recon-buffer-name))) (recon-buf (get-buffer ledger-recon-buffer-name)))
(if buf (if (buffer-live-p recon-buf)
(progn (progn
(with-current-buffer buf (with-current-buffer recon-buf
(ledger-reconcile-refresh) (ledger-reconcile-refresh)
(set-buffer-modified-p nil)) (set-buffer-modified-p nil))
(select-window (get-buffer-window curbuf)))))) (select-window (get-buffer-window curbuf))
(goto-char curpoint)))))
(defun ledger-reconcile-add () (defun ledger-reconcile-add ()
"Use ledger xact to add a new transaction." "Use ledger xact to add a new transaction."
@ -401,8 +402,6 @@ moved and recentered. If they aren't strange things happen."
(set (make-local-variable 'ledger-acct) account)))) (set (make-local-variable 'ledger-acct) account))))
;; Narrow the ledger buffer ;; Narrow the ledger buffer
;; Now, actually run the reconciliation
(with-current-buffer rbuf (with-current-buffer rbuf
(save-excursion (save-excursion
(if ledger-narrow-on-reconcile (if ledger-narrow-on-reconcile