summaryrefslogtreecommitdiff
path: root/ledger.el
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2007-04-17 07:34:25 +0000
committerJohn Wiegley <johnw@newartisans.com>2008-04-13 03:35:36 -0400
commit25fc97288d454f69ad6be425f2b1f82cafdf4399 (patch)
tree0bdc14159f178bf63528fe3ff904e970656fd6e4 /ledger.el
parentafa7304095fa341c6153615e730990fb988830aa (diff)
downloadfork-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.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/ledger.el b/ledger.el
index 3704e568..00a32892 100644
--- a/ledger.el
+++ b/ledger.el
@@ -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)))