 
 (defsubst ledger-current-year ()
   (format-time-string "%Y"))
-
 (defsubst ledger-current-month ()
   (format-time-string "%m"))
 
 (defvar ledger-year (ledger-current-year)
   "Start a ledger session with the current year, but make it
 customizable to ease retro-entry.")
-
 (defvar ledger-month (ledger-current-month)
   "Start a ledger session with the current month, but make it
 customizable to ease retro-entry.")


;; Emacs Lisp Archive Entry
;; Filename: ledger.el
;; Version: 1.1
;; Date: Thu 02-Apr-2004
;; Keywords: data
;; Author: John Wiegley (johnw AT gnu DOT org)

;;   C-c C-a  add a new entry, based on previous entries
;;   C-c C-y  set default year for entry mode
;;   C-c C-m  set default month for entry mode
;;   C-c C-r  reconcile uncleared entries related to an account
;;
;; In the reconcile buffer, use SPACE to toggle the cleared status of
;; a transaction, C-x C-s to save changes (to the ledger file as
;; well), or C-c C-r to attempt an auto-reconcilation based on the
;; statement's ending date and balance.

(defvar ledger-version "1.2"
  "The version of ledger.el currently loaded")

(defgroup ledger nil
