From fec1c179e33225778fa4b69667d5382e7a2b5718 Mon Sep 17 00:00:00 2001 From: Craig Earls Date: Tue, 26 Mar 2013 00:35:38 -0400 Subject: [PATCH] Do not include xact level comments in account list for auto completion. --- lisp/ldg-complete.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))