diff options
| -rw-r--r-- | lisp/ledger-test.el | 12 | ||||
| -rw-r--r-- | lisp/ledger-xact.el | 7 |
2 files changed, 18 insertions, 1 deletions
diff --git a/lisp/ledger-test.el b/lisp/ledger-test.el index 5f9f02fa..2db44c2b 100644 --- a/lisp/ledger-test.el +++ b/lisp/ledger-test.el @@ -19,6 +19,16 @@ ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, ;; MA 02110-1301 USA. +;;; Commentary: + +;;; Code: + +(declare-function ledger-mode "ledger-mode") ; TODO: fix this cyclic dependency +(declare-function org-narrow-to-subtree "org") +(declare-function org-entry-get "org") +(declare-function outline-back-to-heading "outline") +(declare-function outline-next-heading "outline") + (defgroup ledger-test nil "Definitions for the Ledger testing framework" :group 'ledger) @@ -125,3 +135,5 @@ (cd prev-directory))))))) (provide 'ledger-test) + +;;; ledger-test.el ends here diff --git a/lisp/ledger-xact.el b/lisp/ledger-xact.el index 6df5b60b..29f6f4f0 100644 --- a/lisp/ledger-xact.el +++ b/lisp/ledger-xact.el @@ -25,6 +25,11 @@ ;;; Code: +(require 'eshell) +(require 'ledger-regex) +(require 'ledger-navigate) +;; TODO: This file depends on code in ledger-mode.el, which depends on this. + (defcustom ledger-highlight-xact-under-point t "If t highlight xact under point." :type 'boolean @@ -142,7 +147,7 @@ MOMENT is an encoded date" (goto-char (match-beginning 0))))) (defun ledger-delete-current-transaction (pos) - "Delete the transaction surrounging point." + "Delete the transaction surrounging POS." (interactive "d") (let ((bounds (ledger-navigate-find-xact-extents pos))) (delete-region (car bounds) (cadr bounds)))) |