diff options
author | John Wiegley <johnw@newartisans.com> | 2007-04-17 07:34:25 +0000 |
---|---|---|
committer | John Wiegley <johnw@newartisans.com> | 2008-04-13 03:35:36 -0400 |
commit | 25fc97288d454f69ad6be425f2b1f82cafdf4399 (patch) | |
tree | 0bdc14159f178bf63528fe3ff904e970656fd6e4 /ledger.el | |
parent | afa7304095fa341c6153615e730990fb988830aa (diff) | |
download | fork-ledger-25fc97288d454f69ad6be425f2b1f82cafdf4399.tar.gz fork-ledger-25fc97288d454f69ad6be425f2b1f82cafdf4399.tar.bz2 fork-ledger-25fc97288d454f69ad6be425f2b1f82cafdf4399.zip |
Removed a lint warnings; added an ###autoload declaration.
Diffstat (limited to 'ledger.el')
-rw-r--r-- | ledger.el | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -371,6 +371,7 @@ dropped." (defvar ledger-mode-abbrev-table) +;;;###autoload (define-derived-mode ledger-mode text-mode "Ledger" "A mode for editing ledger data files." (set (make-local-variable 'comment-start) ";") @@ -1236,6 +1237,8 @@ the default." (setq ledger-month (read-string "Month: " (ledger-current-month))) (setq ledger-month (format "%02d" newmonth)))) +(defvar ledger-master-file nil) + (defun ledger-master-file () "Return the master file for a ledger file. @@ -1243,7 +1246,7 @@ The master file is either the file for the current ledger buffer or the file specified by the buffer-local variable ledger-master-file. Typically this variable would be set in a file local variable comment block at the end of a ledger file which is included in some other file." - (if (boundp 'ledger-master-file) + (if ledger-master-file (expand-file-name ledger-master-file) (buffer-file-name))) |