[emacs] Fix more byte compilation and other layout issues
This commit is contained in:
parent
233ece62cd
commit
637679c0cb
2 changed files with 18 additions and 1 deletions
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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))))
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue