summaryrefslogtreecommitdiff
path: root/lisp/ledger-commodities.el
diff options
context:
space:
mode:
authorCraig Earls <enderw88@gmail.com>2015-02-25 22:01:33 -0700
committerCraig Earls <enderw88@gmail.com>2015-02-25 22:01:33 -0700
commit1f803d629491991afb8aa9cd1d159313b2af78c7 (patch)
tree4eb6f0f90162f4808d0687a06ad1a698eb3ed035 /lisp/ledger-commodities.el
parentfe48f607be7b9da8d2c4ac1fb30078dea55b8240 (diff)
parentaf0da737fc4ef8f9ccebd3d43519610b8a8fcaa1 (diff)
downloadfork-ledger-1f803d629491991afb8aa9cd1d159313b2af78c7.tar.gz
fork-ledger-1f803d629491991afb8aa9cd1d159313b2af78c7.tar.bz2
fork-ledger-1f803d629491991afb8aa9cd1d159313b2af78c7.zip
Merge commit 'af0da737fc4ef8f9ccebd3d43519610b8a8fcaa1' into next
Conflicts: lisp/ledger-reconcile.el
Diffstat (limited to 'lisp/ledger-commodities.el')
-rw-r--r--lisp/ledger-commodities.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/ledger-commodities.el b/lisp/ledger-commodities.el
index 5ffebf3b..ea6319ba 100644
--- a/lisp/ledger-commodities.el
+++ b/lisp/ledger-commodities.el
@@ -91,8 +91,8 @@ Returns a list with (value commodity)."
(error "Can't add different commodities, %S to %S" c1 c2)))
(defun ledger-strip (str char)
- "Return STR with CHAR removed."
- (replace-regexp-in-string char "" str))
+ "Return STR with CHAR removed."
+ (replace-regexp-in-string char "" str))
(defun ledger-string-to-number (str &optional decimal-comma)
"improve builtin string-to-number by handling internationalization, and return nil if number can't be parsed"
@@ -105,7 +105,7 @@ Returns a list with (value commodity)."
(string-to-number nstr)))
(defun ledger-number-to-string (n &optional decimal-comma)
- "number-to-string that handles comma as decimal."
+ "number-to-string that handles comma as decimal."
(let ((str (number-to-string n)))
(when (or decimal-comma
(assoc "decimal-comma" ledger-environment-alist))
@@ -124,7 +124,7 @@ longer ones are after the value."
(concat commodity " " str))))
(defun ledger-read-commodity-string (prompt)
- "Read an amount from mini-buffer using PROMPT."
+ "Read an amount from mini-buffer using PROMPT."
(let ((str (read-from-minibuffer
(concat prompt " (" ledger-reconcile-default-commodity "): ")))
comm)