diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-02-15 12:43:56 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-02-15 12:43:56 -0700 |
| commit | d37a369c12f0f29bc00d87bb7ef75347c6c5dffe (patch) | |
| tree | f0b71bdfe645939c0fe3fd854ae13156e6920733 /lisp/ldg-commodities.el | |
| parent | adfb03cac0d07ede80ad8603eaa15b145ac4f1ef (diff) | |
| download | ledger-d37a369c12f0f29bc00d87bb7ef75347c6c5dffe.tar.gz ledger-d37a369c12f0f29bc00d87bb7ef75347c6c5dffe.tar.bz2 ledger-d37a369c12f0f29bc00d87bb7ef75347c6c5dffe.zip | |
Changed prompt for reconciliation target.
Diffstat (limited to 'lisp/ldg-commodities.el')
| -rw-r--r-- | lisp/ldg-commodities.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/ldg-commodities.el b/lisp/ldg-commodities.el index ab5c8898..cf2ee128 100644 --- a/lisp/ldg-commodities.el +++ b/lisp/ldg-commodities.el @@ -69,12 +69,11 @@ longer one are after the value." (concat val " " commodity) (concat commodity " " val)))) -(defun ledger-read-commodity-string (comm) +(defun ledger-read-commodity-string (prompt) "Return a commoditizd value (val 'comm') from COMM. Assumes a space between the value and the commodity." - (interactive (list (read-from-minibuffer - (concat "Enter commoditized amount (" ledger-reconcile-default-commodity "): ")))) - (let ((parts (split-string comm))) + (let ((parts (split-string (read-from-minibuffer + (concat prompt " (" ledger-reconcile-default-commodity "): "))))) (if parts (if (/= (length parts) 2) ;;assume a number was entered and use default commodity (list (string-to-number (car parts)) |