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

7
lisp/ldg-complete.el
View file

@ -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))