Merge commit 'b5612122ae712e3a924662fa1407c46daca6c85f' into next
Conflicts: lisp/ldg-exec.el
This commit is contained in:
commit
9fc1f512b5
3 changed files with 3 additions and 3 deletions
|
|
@ -75,7 +75,7 @@ Returns a list with (value commodity)."
|
|||
(let ((fields (split-string str "[\n\r]"))) ; break any balances
|
||||
; with multi commodities
|
||||
; into a list
|
||||
(mapcar '(lambda (str)
|
||||
(mapcar #'(lambda (str)
|
||||
(ledger-split-commodity-string str))
|
||||
fields)))
|
||||
|
||||
|
|
|
|||
|
|
@ -45,7 +45,7 @@
|
|||
(with-current-buffer (get-buffer-create "*Ledger Error*")
|
||||
(insert-buffer-substring ledger-output)
|
||||
(view-mode)
|
||||
(toggle-read-only)))
|
||||
(setq buffer-read-only t)))
|
||||
|
||||
(defun ledger-exec-success-p (ledger-output-buffer)
|
||||
(with-current-buffer ledger-output-buffer
|
||||
|
|
|
|||
|
|
@ -79,7 +79,7 @@ text that should replace the format specifier."
|
|||
(interactive)
|
||||
(goto-char (point-min))
|
||||
(forward-paragraph)
|
||||
(next-line)
|
||||
(forward-line)
|
||||
(save-excursion
|
||||
(setq inhibit-read-only t)
|
||||
(reverse-region (point) (point-max))))
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue