diff options
author | Peter Feigl <peter.feigl@jku.at> | 2015-02-05 10:38:51 +0100 |
---|---|---|
committer | Peter Feigl <peter.feigl@jku.at> | 2015-02-05 10:38:51 +0100 |
commit | 04ed74a261ccb859cd0e6c4f2631d77dc017a69e (patch) | |
tree | b0dfe171b4ad59a653db71ffa2211c144bd98091 /lisp/ledger-report.el | |
parent | df9e308a0feed12676e2b6ba098f6677ed56d9d5 (diff) | |
download | ledger-04ed74a261ccb859cd0e6c4f2631d77dc017a69e.tar.gz ledger-04ed74a261ccb859cd0e6c4f2631d77dc017a69e.tar.bz2 ledger-04ed74a261ccb859cd0e6c4f2631d77dc017a69e.zip |
cleaning up elisp byte compiler warnings
Diffstat (limited to 'lisp/ledger-report.el')
-rw-r--r-- | lisp/ledger-report.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/ledger-report.el b/lisp/ledger-report.el index a8ed9060..0eb0e4a0 100644 --- a/lisp/ledger-report.el +++ b/lisp/ledger-report.el @@ -25,6 +25,11 @@ ;;; Code: +(declare-function ledger-read-string-with-default "ledger-mode" (prompt default)) +(declare-function ledger-xact-payee "ledger-xact" nil) +(declare-function ledger-read-account-with-prompt "ledger-mode" (prompt)) +(declare-function ledger-navigate-to-line "ledger-navigate" (line-number)) + (require 'easymenu) (eval-when-compile (require 'cl)) @@ -151,13 +156,13 @@ text that should replace the format specifier." "A mode for viewing ledger reports.") (defun ledger-report-tagname-format-specifier () - "Return a valid meta-data tag name" + "Return a valid meta-data tag name." ;; It is intended completion should be available on existing account ;; names, but it remains to be implemented. (ledger-read-string-with-default "Tag Name: " nil)) (defun ledger-report-tagvalue-format-specifier () - "Return a valid meta-data tag name" + "Return a valid meta-data tag name." ;; It is intended completion should be available on existing account ;; names, but it remains to be implemented. (ledger-read-string-with-default "Tag Value: " nil)) @@ -420,8 +425,8 @@ Optional EDIT the command." (customize-variable 'ledger-reports)) (defun ledger-report-edit-report () + "Edit the current report command in the mini buffer and re-run the report." (interactive) - "Edit the current report command in the mini buffer and re-run the report" (setq ledger-report-cmd (ledger-report-read-command ledger-report-cmd)) (ledger-report-redo)) |