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

Put in more nil window protection.

Browse source
This commit is contained in:
Craig Earls 2013-02-20 21:16:05 -07:00
parent 8029fd1149
commit a4e76727be
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ldg-occur.el
View file

@ -82,7 +82,8 @@ When REGEX is nil, unhide everything, and remove higlight"
(append ledger-occur-overlay-list
(ledger-occur-create-folded-overlays buffer-matches)))
(setq ledger-occur-last-match regex)
(select-window (get-buffer-window buffer))))
(if (get-buffer-window buffer)
(select-window (get-buffer-window buffer)))))
(recenter)))
(defun ledger-occur (regex)

4
lisp/ldg-reconcile.el
View file

@ -320,10 +320,10 @@ POSTING is used in `ledger-clear-whole-transactions' is nil."
(fit-window-to-buffer recon-window)
(with-current-buffer buf
(add-hook 'kill-buffer-hook 'ledger-reconcile-quit nil t)
(select-window (get-buffer-window buf))
(if (get-window-for-other-buffer buf)
(select-window (get-buffer-window buf)))
(goto-char (point-max))
(recenter -1))
(select-window recon-window)
(ledger-reconcile-visit t))
(add-hook 'post-command-hook 'ledger-reconcile-track-xact nil t))))