From 66d2e4fecd50354cb32bac61038a6c3fc7becaf3 Mon Sep 17 00:00:00 2001 From: Craig Earls Date: Mon, 1 Dec 2014 20:07:46 -0700 Subject: Doc string cleanup. --- lisp/ledger-init.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lisp/ledger-init.el') 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 -- cgit v1.2.3