summaryrefslogtreecommitdiff
path: root/lisp/ledger-commodities.el
diff options
context:
space:
mode:
authorCraig Earls <enderw88@gmail.com>2015-02-10 14:27:48 -0700
committerCraig Earls <enderw88@gmail.com>2015-02-10 14:27:48 -0700
commit6b668974a48daa9982470295adb7fe3c1c7dd990 (patch)
tree83876c89786efc8bca50c0cfa404e60ebb94cb8d /lisp/ledger-commodities.el
parentb822f4ea3df56e5227c898aaffacdb3a9c0e9471 (diff)
parent8162cc783da82b5383e6403c80930034582bb366 (diff)
downloadfork-ledger-6b668974a48daa9982470295adb7fe3c1c7dd990.tar.gz
fork-ledger-6b668974a48daa9982470295adb7fe3c1c7dd990.tar.bz2
fork-ledger-6b668974a48daa9982470295adb7fe3c1c7dd990.zip
Merge pull request #389 from thdox/untabify-emacs-lisp2
[emacs] Untabify emacs lisp
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)