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

Make ledger-report buffers non-editable.

Browse source 
* lisp/ledger.el: Make ledger-report buffers non-editable.

Intuitively, a ledger-report buffer is a report -- the result of
applying a function to your ledger data.  Thus, the buffers created by
ledger-reports aren't editable text; to "change" the ledger-report
buffer, change the ledger data from which the report is derived.

This commit alters ledger-report and ledger-report-redo.
This commit is contained in:
Jesse Alama 2009-02-21 17:42:39 -08:00 • committed by John Wiegley
parent ace68028f4
commit 119d86d31b
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ledger.el
View file

@ -858,7 +858,9 @@ used to generate the buffer, navigating the buffer, etc."
(set (make-local-variable 'ledger-report-name) report-name)
(set (make-local-variable 'ledger-original-window-cfg) wcfg)
(ledger-do-report (ledger-report-cmd report-name edit))
(shrink-window-if-larger-than-buffer))))
(shrink-window-if-larger-than-buffer)
(set-buffer-modified-p nil)
(setq buffer-read-only t))))
(defun string-empty-p (s)
"Check for the empty string."
@ -979,8 +981,10 @@ the default."
"Redo the report in the current ledger report buffer."
(interactive)
(ledger-report-goto)
(setq buffer-read-only nil)
(erase-buffer)
(ledger-do-report ledger-report-cmd))
(ledger-do-report ledger-report-cmd)
(setq buffer-read-only nil))
(defun ledger-report-quit ()
"Quit the ledger report buffer by burying it."