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

Improve report redo logic.

Browse source
This commit is contained in:
Craig Earls 2014-07-12 22:32:59 -07:00
parent 4606bb293d
commit 2f9240ae00
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/ledger-report.el
View file

@ -360,16 +360,18 @@ Optional EDIT the command."
(defun ledger-report-redo () (defun ledger-report-redo ()
"Redo the report in the current ledger report buffer." "Redo the report in the current ledger report buffer."
(interactive) (interactive)
(let ((cur-buf (current-buffer)))
(if (and (string= mode-name "Ledger")
(get-buffer ledger-report-buffer-name))
(progn
(if (and (get-buffer ledger-buf) (pop-to-buffer (get-buffer ledger-report-buffer-name))
(get-buffer ledger-report-buffer-name)) (shrink-window-if-larger-than-buffer)
(progn (setq buffer-read-only nil)
(pop-to-buffer (get-buffer ledger-report-buffer-name)) (erase-buffer)
(shrink-window-if-larger-than-buffer) (ledger-do-report ledger-report-cmd)
(setq buffer-read-only nil) (setq buffer-read-only nil)
(erase-buffer) (pop-to-buffer cur-buf)))))
(ledger-do-report ledger-report-cmd)
(setq buffer-read-only nil))))
(defun ledger-report-quit () (defun ledger-report-quit ()
"Quit the ledger report buffer." "Quit the ledger report buffer."