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

Merge commit 'b5612122ae712e3a924662fa1407c46daca6c85f' into next

Browse source 
Conflicts:
	lisp/ldg-exec.el
This commit is contained in:
Craig Earls 2013-03-31 19:18:40 -07:00
commit 9fc1f512b5
3 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ldg-commodities.el
View file

@ -75,7 +75,7 @@ Returns a list with (value commodity)."
(let ((fields (split-string str "[\n\r]"))) ; break any balances (let ((fields (split-string str "[\n\r]"))) ; break any balances
; with multi commodities ; with multi commodities
; into a list ; into a list
(mapcar '(lambda (str) (mapcar #'(lambda (str)
(ledger-split-commodity-string str)) (ledger-split-commodity-string str))
fields))) fields)))

2
lisp/ldg-exec.el
View file

@ -45,7 +45,7 @@
(with-current-buffer (get-buffer-create "*Ledger Error*") (with-current-buffer (get-buffer-create "*Ledger Error*")
(insert-buffer-substring ledger-output) (insert-buffer-substring ledger-output)
(view-mode) (view-mode)
(toggle-read-only))) (setq buffer-read-only t)))
(defun ledger-exec-success-p (ledger-output-buffer) (defun ledger-exec-success-p (ledger-output-buffer)
(with-current-buffer ledger-output-buffer (with-current-buffer ledger-output-buffer

2
lisp/ldg-report.el
View file

@ -79,7 +79,7 @@ text that should replace the format specifier."
(interactive) (interactive)
(goto-char (point-min)) (goto-char (point-min))
(forward-paragraph) (forward-paragraph)
(next-line) (forward-line)
(save-excursion (save-excursion
(setq inhibit-read-only t) (setq inhibit-read-only t)
(reverse-region (point) (point-max)))) (reverse-region (point) (point-max))))