diff options
| -rw-r--r-- | ledger-check.el | 2 | ||||
| -rw-r--r-- | ledger-commodities.el | 2 | ||||
| -rw-r--r-- | ledger-complete.el | 8 | ||||
| -rw-r--r-- | ledger-context.el | 2 | ||||
| -rw-r--r-- | ledger-exec.el | 2 | ||||
| -rw-r--r-- | ledger-fontify.el | 2 | ||||
| -rw-r--r-- | ledger-fonts.el | 2 | ||||
| -rw-r--r-- | ledger-init.el | 2 | ||||
| -rw-r--r-- | ledger-mode.el | 2 | ||||
| -rw-r--r-- | ledger-navigate.el | 2 | ||||
| -rw-r--r-- | ledger-occur.el | 2 | ||||
| -rw-r--r-- | ledger-post.el | 2 | ||||
| -rw-r--r-- | ledger-reconcile.el | 2 | ||||
| -rw-r--r-- | ledger-regex.el | 2 | ||||
| -rw-r--r-- | ledger-report.el | 2 | ||||
| -rw-r--r-- | ledger-schedule.el | 7 | ||||
| -rw-r--r-- | ledger-sort.el | 2 | ||||
| -rw-r--r-- | ledger-state.el | 2 | ||||
| -rw-r--r-- | ledger-texi.el | 2 | ||||
| -rw-r--r-- | ledger-xact.el | 2 |
20 files changed, 25 insertions, 26 deletions
diff --git a/ledger-check.el b/ledger-check.el index 5bbcaec..81b4100 100644 --- a/ledger-check.el +++ b/ledger-check.el @@ -1,4 +1,4 @@ -;;; ledger-check.el --- Helper code for use with the "ledger" command-line tool +;;; ledger-check.el --- Helper code for use with the "ledger" command-line tool -*- lexical-binding: t; -*- ;; Copyright (C) 2015 Craig Earls (enderw88 AT gmail DOT com) diff --git a/ledger-commodities.el b/ledger-commodities.el index 492ef3b..823f045 100644 --- a/ledger-commodities.el +++ b/ledger-commodities.el @@ -1,4 +1,4 @@ -;;; ledger-commodities.el --- Helper code for use with the "ledger" command-line tool +;;; ledger-commodities.el --- Helper code for use with the "ledger" command-line tool -*- lexical-binding: t; -*- ;; Copyright (C) 2003-2016 John Wiegley (johnw AT gnu DOT org) diff --git a/ledger-complete.el b/ledger-complete.el index 9fc10f6..eff460d 100644 --- a/ledger-complete.el +++ b/ledger-complete.el @@ -1,4 +1,4 @@ -;;; ledger-complete.el --- Helper code for use with the "ledger" command-line tool +;;; ledger-complete.el --- Helper code for use with the "ledger" command-line tool -*- lexical-binding: t; -*- ;; Copyright (C) 2003-2016 John Wiegley (johnw AT gnu DOT org) @@ -165,7 +165,7 @@ Looks in `ledger-accounts-file' if set, otherwise the current buffer." (defun ledger-complete-date (month-string day-string) "Complete a date." - (lexical-let* + (let* ((now (current-time)) (decoded (decode-time now)) (to-day (nth 3 decoded)) @@ -188,9 +188,9 @@ Looks in `ledger-accounts-file' if set, otherwise the current buffer." (defun ledger-complete-effective-date (tx-year-string tx-month-string tx-day-string - month-string day-string) + month-string day-string) "Complete an effective date." - (lexical-let* + (let* ((tx-year (string-to-number tx-year-string)) (tx-month (string-to-number tx-month-string)) (tx-day (string-to-number tx-day-string)) diff --git a/ledger-context.el b/ledger-context.el index 39b4583..ac76708 100644 --- a/ledger-context.el +++ b/ledger-context.el @@ -1,4 +1,4 @@ -;;; ledger-context.el --- Helper code for use with the "ledger" command-line tool +;;; ledger-context.el --- Helper code for use with the "ledger" command-line tool -*- lexical-binding: t; -*- ;; Copyright (C) 2003-2016 John Wiegley (johnw AT gnu DOT org) diff --git a/ledger-exec.el b/ledger-exec.el index 22f824e..f83e3cd 100644 --- a/ledger-exec.el +++ b/ledger-exec.el @@ -1,4 +1,4 @@ -;;; ledger-exec.el --- Helper code for use with the "ledger" command-line tool +;;; ledger-exec.el --- Helper code for use with the "ledger" command-line tool -*- lexical-binding: t; -*- ;; Copyright (C) 2003-2016 John Wiegley (johnw AT gnu DOT org) diff --git a/ledger-fontify.el b/ledger-fontify.el index 826ef21..c27de0f 100644 --- a/ledger-fontify.el +++ b/ledger-fontify.el @@ -1,4 +1,4 @@ -;;; ledger-fontify.el --- Provide custom fontification for ledger-mode +;;; ledger-fontify.el --- Provide custom fontification for ledger-mode -*- lexical-binding: t; -*- ;; Copyright (C) 2014 Craig P. Earls (enderw88 at gmail dot com) diff --git a/ledger-fonts.el b/ledger-fonts.el index 9e9f706..b72d8ee 100644 --- a/ledger-fonts.el +++ b/ledger-fonts.el @@ -1,4 +1,4 @@ -;;; ledger-fonts.el --- Helper code for use with the "ledger" command-line tool +;;; ledger-fonts.el --- Helper code for use with the "ledger" command-line tool -*- lexical-binding: t; -*- ;; Copyright (C) 2003-2016 John Wiegley (johnw AT gnu DOT org) diff --git a/ledger-init.el b/ledger-init.el index b1b685b..e0488af 100644 --- a/ledger-init.el +++ b/ledger-init.el @@ -1,4 +1,4 @@ -;;; ledger-init.el --- Helper code for use with the "ledger" command-line tool +;;; ledger-init.el --- Helper code for use with the "ledger" command-line tool -*- lexical-binding: t; -*- ;; Copyright (C) 2003-2016 John Wiegley (johnw AT gnu DOT org) diff --git a/ledger-mode.el b/ledger-mode.el index e36af95..0e3655e 100644 --- a/ledger-mode.el +++ b/ledger-mode.el @@ -1,4 +1,4 @@ -;;; ledger-mode.el --- Helper code for use with the "ledger" command-line tool +;;; ledger-mode.el --- Helper code for use with the "ledger" command-line tool -*- lexical-binding: t; -*- ;; Copyright (C) 2003-2016 John Wiegley (johnw AT gnu DOT org) diff --git a/ledger-navigate.el b/ledger-navigate.el index c2fffea..6f519b7 100644 --- a/ledger-navigate.el +++ b/ledger-navigate.el @@ -1,4 +1,4 @@ -;;; ledger-navigate.el --- Provide navigation services through the ledger buffer. +;;; ledger-navigate.el --- Provide navigation services through the ledger buffer. -*- lexical-binding: t; -*- ;; Copyright (C) 2014-2015 Craig Earls (enderw88 AT gmail DOT com) diff --git a/ledger-occur.el b/ledger-occur.el index ab587f4..7be903d 100644 --- a/ledger-occur.el +++ b/ledger-occur.el @@ -1,4 +1,4 @@ -;;; ledger-occur.el --- Helper code for use with the "ledger" command-line tool +;;; ledger-occur.el --- Helper code for use with the "ledger" command-line tool -*- lexical-binding: t; -*- ;; Copyright (C) 2003-2016 John Wiegley (johnw AT gnu DOT org) diff --git a/ledger-post.el b/ledger-post.el index bab6169..3cd1da4 100644 --- a/ledger-post.el +++ b/ledger-post.el @@ -1,4 +1,4 @@ -;;; ledger-post.el --- Helper code for use with the "ledger" command-line tool +;;; ledger-post.el --- Helper code for use with the "ledger" command-line tool -*- lexical-binding: t; -*- ;; Copyright (C) 2003-2016 John Wiegley (johnw AT gnu DOT org) diff --git a/ledger-reconcile.el b/ledger-reconcile.el index 5b34f35..0630f8c 100644 --- a/ledger-reconcile.el +++ b/ledger-reconcile.el @@ -1,4 +1,4 @@ -;;; ledger-reconcile.el --- Helper code for use with the "ledger" command-line tool +;;; ledger-reconcile.el --- Helper code for use with the "ledger" command-line tool -*- lexical-binding: t; -*- ;; Copyright (C) 2003-2016 John Wiegley (johnw AT gnu DOT org) diff --git a/ledger-regex.el b/ledger-regex.el index 8468c4b..2b3b85a 100644 --- a/ledger-regex.el +++ b/ledger-regex.el @@ -1,4 +1,4 @@ -;;; ledger-regex.el --- Helper code for use with the "ledger" command-line tool +;;; ledger-regex.el --- Helper code for use with the "ledger" command-line tool -*- lexical-binding: t; -*- ;; Copyright (C) 2003-2016 John Wiegley (johnw AT gnu DOT org) diff --git a/ledger-report.el b/ledger-report.el index e82fe17..a574f1b 100644 --- a/ledger-report.el +++ b/ledger-report.el @@ -1,4 +1,4 @@ -;;; ledger-report.el --- Helper code for use with the "ledger" command-line tool +;;; ledger-report.el --- Helper code for use with the "ledger" command-line tool -*- lexical-binding: t; -*- ;; Copyright (C) 2003-2016 John Wiegley (johnw AT gnu DOT org) diff --git a/ledger-schedule.el b/ledger-schedule.el index da2670f..e04cdc0 100644 --- a/ledger-schedule.el +++ b/ledger-schedule.el @@ -1,4 +1,4 @@ -;;; ledger-schedule.el --- Helper code for use with the "ledger" command-line tool +;;; ledger-schedule.el --- Helper code for use with the "ledger" command-line tool -*- lexical-binding: t; -*- ;; Copyright (C) 2013 Craig Earls (enderw88 at gmail dot com) @@ -285,7 +285,7 @@ date descriptor." (setq items (append items (list (list test-date (cadr candidate)))))))) items)) -(defun ledger-schedule-create-auto-buffer (candidate-items early horizon ledger-buf) +(defun ledger-schedule-create-auto-buffer (candidate-items early horizon) "Format CANDIDATE-ITEMS for display." (let ((candidates (ledger-schedule-list-upcoming-xacts candidate-items early horizon)) (schedule-buf (get-buffer-create ledger-schedule-buffer-name))) @@ -318,8 +318,7 @@ Use a prefix arg to change the default value" (ledger-schedule-create-auto-buffer (ledger-schedule-scan-transactions file) look-backward - look-forward - (current-buffer)) + look-forward) (pop-to-buffer ledger-schedule-buffer-name)) (error "Could not find ledger schedule file at %s" file))) diff --git a/ledger-sort.el b/ledger-sort.el index c8c25c3..c58be8c 100644 --- a/ledger-sort.el +++ b/ledger-sort.el @@ -1,4 +1,4 @@ -;;; ledger-sort.el --- Helper code for use with the "ledger" command-line tool +;;; ledger-sort.el --- Helper code for use with the "ledger" command-line tool -*- lexical-binding: t; -*- ;; Copyright (C) 2003-2016 John Wiegley (johnw AT gnu DOT org) diff --git a/ledger-state.el b/ledger-state.el index e568406..e3db7ef 100644 --- a/ledger-state.el +++ b/ledger-state.el @@ -1,4 +1,4 @@ -;;; ledger-state.el --- Helper code for use with the "ledger" command-line tool +;;; ledger-state.el --- Helper code for use with the "ledger" command-line tool -*- lexical-binding: t; -*- ;; Copyright (C) 2003-2016 John Wiegley (johnw AT gnu DOT org) diff --git a/ledger-texi.el b/ledger-texi.el index 5bf8d9a..b6457ed 100644 --- a/ledger-texi.el +++ b/ledger-texi.el @@ -1,4 +1,4 @@ -;;; ledger-texi.el --- Helper code for use with the "ledger" command-line tool +;;; ledger-texi.el --- Helper code for use with the "ledger" command-line tool -*- lexical-binding: t; -*- ;; Copyright (C) 2003-2016 John Wiegley (johnw AT gnu DOT org) diff --git a/ledger-xact.el b/ledger-xact.el index 964bb86..620fe38 100644 --- a/ledger-xact.el +++ b/ledger-xact.el @@ -1,4 +1,4 @@ -;;; ledger-xact.el --- Helper code for use with the "ledger" command-line tool +;;; ledger-xact.el --- Helper code for use with the "ledger" command-line tool -*- lexical-binding: t; -*- ;; Copyright (C) 2003-2016 John Wiegley (johnw AT gnu DOT org) |