[emacs] Fix more byte compilation and other layout issues

This commit is contained in:
Steve Purcell 2014-12-10 09:17:32 +00:00
parent 233ece62cd
commit 637679c0cb
2 changed files with 18 additions and 1 deletions

View file

@ -19,6 +19,16 @@
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
;; MA 02110-1301 USA. ;; 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 (defgroup ledger-test nil
"Definitions for the Ledger testing framework" "Definitions for the Ledger testing framework"
:group 'ledger) :group 'ledger)
@ -125,3 +135,5 @@
(cd prev-directory))))))) (cd prev-directory)))))))
(provide 'ledger-test) (provide 'ledger-test)
;;; ledger-test.el ends here

View file

@ -25,6 +25,11 @@
;;; Code: ;;; 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 (defcustom ledger-highlight-xact-under-point t
"If t highlight xact under point." "If t highlight xact under point."
:type 'boolean :type 'boolean
@ -142,7 +147,7 @@ MOMENT is an encoded date"
(goto-char (match-beginning 0))))) (goto-char (match-beginning 0)))))
(defun ledger-delete-current-transaction (pos) (defun ledger-delete-current-transaction (pos)
"Delete the transaction surrounging point." "Delete the transaction surrounging POS."
(interactive "d") (interactive "d")
(let ((bounds (ledger-navigate-find-xact-extents pos))) (let ((bounds (ledger-navigate-find-xact-extents pos)))
(delete-region (car bounds) (cadr bounds)))) (delete-region (car bounds) (cadr bounds))))