diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-04-04 12:35:43 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-04-04 12:35:43 -0700 |
| commit | 896d1cc3ec22659f296efa03c962abe69e5dd6e1 (patch) | |
| tree | b6b51ee7e068d90e3394fb89802f306c3cdacc61 /lisp/ldg-init.el | |
| parent | 712665e5b4b748c554174a13d5a66f5cab1c97fd (diff) | |
| parent | 2e78e61be7ba6aa73c56c157405e45ed30990b31 (diff) | |
| download | ledger-896d1cc3ec22659f296efa03c962abe69e5dd6e1.tar.gz ledger-896d1cc3ec22659f296efa03c962abe69e5dd6e1.tar.bz2 ledger-896d1cc3ec22659f296efa03c962abe69e5dd6e1.zip | |
Merge branch 'next' into ledger-mode-automatic-transactions
Diffstat (limited to 'lisp/ldg-init.el')
| -rw-r--r-- | lisp/ldg-init.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/ldg-init.el b/lisp/ldg-init.el index 8e657323..29839c9e 100644 --- a/lisp/ldg-init.el +++ b/lisp/ldg-init.el @@ -22,6 +22,8 @@ ;;; Commentary: ;; Determine the ledger environment +(require 'ldg-regex) + (defcustom ledger-init-file-name "~/.ledgerrc" "Location of the ledger initialization file. nil if you don't have one" :group 'ledger-exec) @@ -32,7 +34,7 @@ (with-current-buffer file (setq ledger-environment-alist nil) (goto-char (point-min)) - (while (re-search-forward "^--.+?\\($\\|[ ]\\)" nil t ) + (while (re-search-forward ledger-init-string-regex nil t ) (let ((matchb (match-beginning 0)) ;; save the match data, string-match stamp on it (matche (match-end 0))) (end-of-line) |