diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-02-10 07:38:52 -0800 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-02-10 07:38:52 -0800 |
| commit | 96bae11502fcb534bbd1a0fcbf8410f4dc12a02b (patch) | |
| tree | 7a8933813668f0464bedf98823885dd418608189 | |
| parent | 0c8a660d6035d34a82a1cacaa47b93acafc9d47e (diff) | |
| parent | 69efea6c543bb128422633239e7618f0d0eda6cf (diff) | |
| download | fork-ledger-96bae11502fcb534bbd1a0fcbf8410f4dc12a02b.tar.gz fork-ledger-96bae11502fcb534bbd1a0fcbf8410f4dc12a02b.tar.bz2 fork-ledger-96bae11502fcb534bbd1a0fcbf8410f4dc12a02b.zip | |
Merge pull request #154 from vanicat/t/kill-reconcile
Take care to not delete some random buffer when exiting reconcile
| -rw-r--r-- | lisp/ldg-reconcile.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/ldg-reconcile.el b/lisp/ldg-reconcile.el index ed3fbcb5..afecf2eb 100644 --- a/lisp/ldg-reconcile.el +++ b/lisp/ldg-reconcile.el @@ -170,14 +170,15 @@ (defun ledger-reconcile-quit () (interactive) - (let ((buf ledger-buf)) + (let ((buf ledger-buf) + (reconcile-buf (current-buffer))) (with-current-buffer ledger-buf (remove-hook 'after-save-hook 'ledger-reconcile-refresh-after-save t)) ;Make sure you delete the window before you delete the buffer, ;otherwise, madness ensues - (delete-window (get-buffer-window (current-buffer))) - (kill-buffer (current-buffer)) + (delete-window (get-buffer-window reconcile-buf)) + (kill-buffer (reconcile-buf)) (if ledger-fold-on-reconcile (ledger-occur-quit-buffer buf)))) |