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

31
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."
@ -211,14 +212,14 @@ Return the number of uncleared xacts found."
"Save the ledger buffer." "Save the ledger buffer."
(interactive) (interactive)
(let ((curpoint (point))) (let ((curpoint (point)))
(dolist (buf (cons ledger-buf ledger-bufs)) (dolist (buf (cons ledger-buf ledger-bufs))
(with-current-buffer buf (with-current-buffer buf
(save-buffer))) (save-buffer)))
(with-current-buffer (get-buffer ledger-recon-buffer-name) (with-current-buffer (get-buffer ledger-recon-buffer-name)
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(ledger-display-balance) (ledger-display-balance)
(goto-char curpoint) (goto-char curpoint)
(ledger-reconcile-visit t)))) (ledger-reconcile-visit t))))
(defun ledger-reconcile-finish () (defun ledger-reconcile-finish ()
"Mark all pending posting or transactions as cleared. "Mark all pending posting or transactions as cleared.
@ -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