From 267cd4701eed4f7286a9953f4837807c4be3f13a Mon Sep 17 00:00:00 2001 From: Nikolaj Schumacher Date: Fri, 17 Apr 2009 21:04:38 +0200 Subject: [PATCH] Try not to prompt for TAGS file. --- company-etags.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/company-etags.el b/company-etags.el index 321f4f865..07cd0f581 100644 --- a/company-etags.el +++ b/company-etags.el @@ -66,7 +66,9 @@ buffer automatically." (or (company-grab-symbol) 'stop))) ('candidates (let ((tags-table-list (company-etags-buffer-table)) (completion-ignore-case nil)) - (and (fboundp 'tags-completion-table) + (and (or tags-file-name tags-table-list) + (fboundp 'tags-completion-table) + tags-table-list (all-completions arg (tags-completion-table))))) ('location (let ((tags-table-list (company-etags-buffer-table))) (when (fboundp 'find-tag-noselect) -- 2.39.2