diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-01-02 10:09:23 -0800 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-01-02 10:09:23 -0800 |
| commit | bde5e69c9acf54e0d9f6eec7f380a15f82d3102e (patch) | |
| tree | e6f03a43fb5c9b33052be54147abca9ac0635c15 /lisp/ledger-xact.el | |
| parent | 876cfa1f78d4c036332f3d918a88817fe72353e4 (diff) | |
| parent | 741a275cc99f73521e9588798a21f62aebf7fa7c (diff) | |
| download | fork-ledger-bde5e69c9acf54e0d9f6eec7f380a15f82d3102e.tar.gz fork-ledger-bde5e69c9acf54e0d9f6eec7f380a15f82d3102e.tar.bz2 fork-ledger-bde5e69c9acf54e0d9f6eec7f380a15f82d3102e.zip | |
Merge pull request #228 from the-kenny/emacs-prompt-effective-date
Emacs: Improve effictive-date-handling
Diffstat (limited to 'lisp/ledger-xact.el')
| -rw-r--r-- | lisp/ledger-xact.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/ledger-xact.el b/lisp/ledger-xact.el index f65e5ed6..db642605 100644 --- a/lisp/ledger-xact.el +++ b/lisp/ledger-xact.el @@ -135,8 +135,7 @@ MOMENT is an encoded date" (defun ledger-copy-transaction-at-point (date) "Ask for a new DATE and copy the transaction under point to that date. Leave point on the first amount." (interactive (list - (read-string "Copy to date: " (ledger-year-and-month) - 'ledger-minibuffer-history))) + (ledger-read-date "Copy to date: "))) (let* ((here (point)) (extents (ledger-find-xact-extents (point))) (transaction (buffer-substring-no-properties (car extents) (cadr extents))) @@ -167,7 +166,9 @@ If INSERT-AT-POINT is non-nil insert the transaction there, otherwise call `ledger-xact-find-slot' to insert it at the correct chronological place in the buffer." (interactive (list - (read-string "Transaction: " (ledger-year-and-month)))) + ;; Note: This isn't "just" the date - it can contain + ;; other text too + (ledger-read-date "Transaction: "))) (let* ((args (with-temp-buffer (insert transaction-text) (eshell-parse-arguments (point-min) (point-max)))) |