Do not include xact level comments in account list for auto completion.

This commit is contained in:
Craig Earls 2013-03-26 00:35:38 -04:00
parent b947bae1a8
commit fec1c179e3

View file

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