diff options
author | Craig Earls <enderw88@gmail.com> | 2015-02-10 14:27:48 -0700 |
---|---|---|
committer | Craig Earls <enderw88@gmail.com> | 2015-02-10 14:27:48 -0700 |
commit | 6b668974a48daa9982470295adb7fe3c1c7dd990 (patch) | |
tree | 83876c89786efc8bca50c0cfa404e60ebb94cb8d /lisp/ledger-commodities.el | |
parent | b822f4ea3df56e5227c898aaffacdb3a9c0e9471 (diff) | |
parent | 8162cc783da82b5383e6403c80930034582bb366 (diff) | |
download | fork-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.el | 8 |
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) |