diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-12-01 20:07:46 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-12-01 20:07:46 -0700 |
| commit | 66d2e4fecd50354cb32bac61038a6c3fc7becaf3 (patch) | |
| tree | e04ad4919d44f8d7d18885b42fd2df469fcdbb7d /lisp/ledger-init.el | |
| parent | 438aaf251ce1b274d295860c48700872e9559ed9 (diff) | |
| download | fork-ledger-66d2e4fecd50354cb32bac61038a6c3fc7becaf3.tar.gz fork-ledger-66d2e4fecd50354cb32bac61038a6c3fc7becaf3.tar.bz2 fork-ledger-66d2e4fecd50354cb32bac61038a6c3fc7becaf3.zip | |
Doc string cleanup.
Diffstat (limited to 'lisp/ledger-init.el')
| -rw-r--r-- | lisp/ledger-init.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ledger-init.el b/lisp/ledger-init.el index 491f20cf..9a20ac98 100644 --- a/lisp/ledger-init.el +++ b/lisp/ledger-init.el @@ -24,8 +24,10 @@ (require 'ledger-regex) +;;; Code: + (defcustom ledger-init-file-name "~/.ledgerrc" - "Location of the ledger initialization file. nil if you don't have one" + "Location of the ledger initialization file. nil if you don't have one." :group 'ledger-exec) (defvar ledger-environment-alist nil) @@ -33,6 +35,7 @@ (defvar ledger-default-date-format "%Y/%m/%d") (defun ledger-init-parse-initialization (buffer) + "Parse the .ledgerrc file in BUFFER." (with-current-buffer buffer (let (environment-alist) (goto-char (point-min)) @@ -53,6 +56,7 @@ environment-alist))) (defun ledger-init-load-init-file () + "Load and parse the .ledgerrc file." (interactive) (let ((init-base-name (file-name-nondirectory ledger-init-file-name))) (if (get-buffer init-base-name) ;; init file already loaded, parse it and leave it |