diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-12-14 09:28:24 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-12-14 09:28:24 -0700 |
| commit | c1a72815947167524601093fb2539945a7aa0e6b (patch) | |
| tree | 017cc0c2f3ccf77e3aff56ac1fbb3a63cae48089 /lisp | |
| parent | d0e09f1d93298e68c3744ad48121f128ec37f0eb (diff) | |
| download | fork-ledger-c1a72815947167524601093fb2539945a7aa0e6b.tar.gz fork-ledger-c1a72815947167524601093fb2539945a7aa0e6b.tar.bz2 fork-ledger-c1a72815947167524601093fb2539945a7aa0e6b.zip | |
Fix ledger-schedule-upcoming so that is honor input file names.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger-schedule.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ledger-schedule.el b/lisp/ledger-schedule.el index c875a46d..d66fdbab 100644 --- a/lisp/ledger-schedule.el +++ b/lisp/ledger-schedule.el @@ -310,8 +310,8 @@ Use a prefix arg to change the default value" (read-number "Look backward: " ledger-schedule-look-backward) (read-number "Look forward: " ledger-schedule-look-forward)) (list ledger-schedule-file ledger-schedule-look-backward ledger-schedule-look-forward))) - (if (and ledger-schedule-file - (file-exists-p ledger-schedule-file)) + (if (and file + (file-exists-p file)) (progn (ledger-schedule-create-auto-buffer (ledger-schedule-scan-transactions file) @@ -319,7 +319,7 @@ Use a prefix arg to change the default value" look-forward (current-buffer)) (pop-to-buffer ledger-schedule-buffer-name)) - (error "Could not find ledger schedule file at %s" ledger-schedule-file))) + (error "Could not find ledger schedule file at %s" file))) (provide 'ledger-schedule) |