diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-04-01 16:35:05 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-04-01 16:35:05 -0700 |
| commit | 712665e5b4b748c554174a13d5a66f5cab1c97fd (patch) | |
| tree | f0692319544837479bd578e2c9248dd53bf1d0fb /lisp/ldg-complete.el | |
| parent | b15d4bc09e40c71bd9a59f33457839daaec659a8 (diff) | |
| parent | 78bedf7c8ea15e369f56fbd317d03deb35343258 (diff) | |
| download | fork-ledger-712665e5b4b748c554174a13d5a66f5cab1c97fd.tar.gz fork-ledger-712665e5b4b748c554174a13d5a66f5cab1c97fd.tar.bz2 fork-ledger-712665e5b4b748c554174a13d5a66f5cab1c97fd.zip | |
Merge branch 'next' into ledger-mode-automatic-transactions
Diffstat (limited to 'lisp/ldg-complete.el')
| -rw-r--r-- | lisp/ldg-complete.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/ldg-complete.el b/lisp/ldg-complete.el index 65206026..fe27e91d 100644 --- a/lisp/ldg-complete.el +++ b/lisp/ldg-complete.el @@ -77,10 +77,9 @@ Return tree structure" (split-string (match-string-no-properties 2) ":")) (let ((root account-tree)) - (while (and account-elements - (not (char-equal (string-to-char (car account-elements)) ?\;))) - (let ((entry (assoc (car account-elements) root))) - (if entry + (while account-elements + (let ((entry (assoc (car account-elements) root))) + (if entry (setq root (cdr entry)) (setq entry (cons (car account-elements) (list t))) (nconc root (list entry)) |