sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ledger-mode: Fix a number of byte-compilation warnings

Browse source
This commit is contained in:
Steve Purcell 2013-12-09 21:14:35 +00:00
parent 12816a77e3
commit ccaaf7e235
4 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ledger-commodities.el
View file

@ -35,7 +35,8 @@
(defcustom ledger-scale 10000
"The 10 ^ maximum number of digits you would expect to appear in your reports.
This is a cheap way of getting around floating point silliness in subtraction")
This is a cheap way of getting around floating point silliness in subtraction"
:group 'ledger)
(defun ledger-split-commodity-string (str)
"Split a commoditized string, STR, into two parts.

2
lisp/ledger-complete.el
View file

@ -221,7 +221,7 @@ ledger-magic-tab would cycle properly"
pcomplete-expand-and-complete
pcomplete-reverse)))
(progn
(delete-backward-char pcomplete-last-completion-length)
(delete-char pcomplete-last-completion-length)
(if (eq this-command 'pcomplete-reverse)
(progn
(push (car (last pcomplete-current-completions))

9
lisp/ledger-exec.el
View file

@ -97,11 +97,10 @@
(defun ledger-check-version ()
"Verify that ledger works and is modern enough."
(interactive)
(if ledger-mode-should-check-version
(if (setq ledger-works (ledger-version-greater-p ledger-version-needed))
(message "Good Ledger Version")
(message "Bad Ledger Version"))
setq ledger-works t))
(if ledger-mode-should-check-version
(if (setq ledger-works (ledger-version-greater-p ledger-version-needed))
(message "Good Ledger Version")
(message "Bad Ledger Version"))))
(provide 'ledger-exec)

6
lisp/ledger-schedule.el
View file

@ -241,7 +241,7 @@ returns true if the date meets the requirements"
((/= 0 (setq year-match (string-to-number str)))
`(eq (nth 5 (decode-time date)) ,year-match))
(t
(error "Improperly specified year constraint: " str)))))
(error "Improperly specified year constraint: %s" str)))))
(defun ledger-schedule-constrain-month (str)
@ -253,7 +253,7 @@ returns true if the date meets the requirements"
`(eq (nth 4 (decode-time date)) ,month-match)
(error "ledger-schedule-constrain-numerical-month: month out of range %S" month-match)))
(t
(error "Improperly specified month constraint: " str)))))
(error "Improperly specified month constraint: %s" str)))))
(defun ledger-schedule-constrain-day (str)
(let ((day-match t))
@ -262,7 +262,7 @@ returns true if the date meets the requirements"
((/= 0 (setq day-match (string-to-number str)))
`(eq (nth 3 (decode-time date)) ,day-match))
(t
(error "Improperly specified day constraint: " str)))))
(error "Improperly specified day constraint: %s" str)))))
(defun ledger-schedule-parse-date-descriptor (descriptor)
"Parse the date descriptor, return the evaluator"