diff options
| -rw-r--r-- | lisp/ledger-mode.el | 10 | ||||
| -rw-r--r-- | lisp/ledger-navigate.el | 1 | ||||
| -rw-r--r-- | lisp/ledger-xact.el | 2 |
3 files changed, 7 insertions, 6 deletions
diff --git a/lisp/ledger-mode.el b/lisp/ledger-mode.el index 3b00bb94..9376e2e0 100644 --- a/lisp/ledger-mode.el +++ b/lisp/ledger-mode.el @@ -96,11 +96,11 @@ "Start a ledger session with the current month, but make it customizable to ease retro-entry.") (defun ledger-read-account-with-prompt (prompt) - (let* ((context (ledger-context-at-point)) - (default (if (eq (ledger-context-line-type context) 'acct-transaction) - (regexp-quote (ledger-context-field-value context 'account)) - nil))) - (ledger-read-string-with-default prompt default))) + (let ((context (ledger-context-at-point))) + (ledger-read-string-with-default prompt + (if (eq (ledger-context-line-type context) 'acct-transaction) + (regexp-quote (ledger-context-field-value context 'account)) + nil)))) (defun ledger-read-date (prompt) "Returns user-supplied date after `PROMPT', defaults to today." diff --git a/lisp/ledger-navigate.el b/lisp/ledger-navigate.el index 2759d2df..5c89480a 100644 --- a/lisp/ledger-navigate.el +++ b/lisp/ledger-navigate.el @@ -56,6 +56,7 @@ beginning with whitespace" (defun ledger-navigate-prev-xact () "Move point to beginning of previous xact." + (interactive) (ledger-navigate-beginning-of-xact) (re-search-backward ledger-xact-start-regex nil t)) diff --git a/lisp/ledger-xact.el b/lisp/ledger-xact.el index 522f8d99..3ef67389 100644 --- a/lisp/ledger-xact.el +++ b/lisp/ledger-xact.el @@ -42,7 +42,7 @@ (defun ledger-highlight-xact-under-point () "Move the highlight overlay to the current transaction." (if ledger-highlight-xact-under-point - (let ((exts (ledger-navigate-find-xact-extents (point))) + (let ((exts (ledger-navigate-find-element-extents (point))) (ovl ledger-xact-highlight-overlay)) (if (not ledger-xact-highlight-overlay) (setq ovl |