diff options
| -rw-r--r-- | lisp/ledger-commodities.el | 3 | ||||
| -rw-r--r-- | lisp/ledger-complete.el | 2 | ||||
| -rw-r--r-- | lisp/ledger-exec.el | 9 | ||||
| -rw-r--r-- | lisp/ledger-schedule.el | 6 |
4 files changed, 10 insertions, 10 deletions
diff --git a/lisp/ledger-commodities.el b/lisp/ledger-commodities.el index 758d4f10..865305d6 100644 --- a/lisp/ledger-commodities.el +++ b/lisp/ledger-commodities.el @@ -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. diff --git a/lisp/ledger-complete.el b/lisp/ledger-complete.el index 516a3a62..c4ac43ef 100644 --- a/lisp/ledger-complete.el +++ b/lisp/ledger-complete.el @@ -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)) diff --git a/lisp/ledger-exec.el b/lisp/ledger-exec.el index 95b28ec2..1cb6b991 100644 --- a/lisp/ledger-exec.el +++ b/lisp/ledger-exec.el @@ -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) diff --git a/lisp/ledger-schedule.el b/lisp/ledger-schedule.el index 53152f39..c8fd6ad0 100644 --- a/lisp/ledger-schedule.el +++ b/lisp/ledger-schedule.el @@ -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" |