diff options
| author | Rémi Vanicat <vanicat@debian.org> | 2013-02-09 19:29:04 +0100 |
|---|---|---|
| committer | Rémi Vanicat <vanicat@debian.org> | 2013-02-09 19:29:04 +0100 |
| commit | 69efea6c543bb128422633239e7618f0d0eda6cf (patch) | |
| tree | f9cb79a9c38b6d25aef898cb7378b3cf8197e466 /lisp/ldg-reconcile.el | |
| parent | f89d6c4419551187a3ed9755d43db959c18938f1 (diff) | |
| download | fork-ledger-69efea6c543bb128422633239e7618f0d0eda6cf.tar.gz fork-ledger-69efea6c543bb128422633239e7618f0d0eda6cf.tar.bz2 fork-ledger-69efea6c543bb128422633239e7618f0d0eda6cf.zip | |
Take care to not delete some random buffer when exiting reconcile
Diffstat (limited to 'lisp/ldg-reconcile.el')
| -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 e0ba1ea7..b475ebb7 100644 --- a/lisp/ldg-reconcile.el +++ b/lisp/ldg-reconcile.el @@ -172,14 +172,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)))) |