sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Bring back comments into account completion.

Browse source
This commit is contained in:
Craig Earls 2013-04-01 16:34:30 -07:00
parent 024697c4fc
commit 78bedf7c8e
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ldg-complete.el
View file

@ -77,8 +77,7 @@ Return tree structure"
(split-string (split-string
(match-string-no-properties 2) ":")) (match-string-no-properties 2) ":"))
(let ((root account-tree)) (let ((root account-tree))
(while (and account-elements (while account-elements
(not (char-equal (string-to-char (car account-elements)) ?\;)))
(let ((entry (assoc (car account-elements) root))) (let ((entry (assoc (car account-elements) root)))
(if entry (if entry
(setq root (cdr entry)) (setq root (cdr entry))