diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-03-26 00:35:38 -0400 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-03-26 00:35:38 -0400 |
| commit | fec1c179e33225778fa4b69667d5382e7a2b5718 (patch) | |
| tree | 635fc7652b88ae28c7e900767fb7b0cd63278757 /lisp | |
| parent | b947bae1a8bf9a9ca326db46d8f5c907bedc3f1c (diff) | |
| download | fork-ledger-fec1c179e33225778fa4b69667d5382e7a2b5718.tar.gz fork-ledger-fec1c179e33225778fa4b69667d5382e7a2b5718.tar.bz2 fork-ledger-fec1c179e33225778fa4b69667d5382e7a2b5718.zip | |
Do not include xact level comments in account list for auto completion.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ldg-complete.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ldg-complete.el b/lisp/ldg-complete.el index 9d524b86..65206026 100644 --- a/lisp/ldg-complete.el +++ b/lisp/ldg-complete.el @@ -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)) |