From d463642056c51d031b79363d470a100254084854 Mon Sep 17 00:00:00 2001 From: Ingo Lohmar Date: Mon, 27 Jul 2015 20:25:36 +0200 Subject: [PATCH] company-etags-find-table: fix fallback tags file expansion --- company-etags.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/company-etags.el b/company-etags.el index 1c01c9167..b377b362b 100644 --- a/company-etags.el +++ b/company-etags.el @@ -51,11 +51,11 @@ buffer automatically." (defvar-local company-etags-buffer-table 'unknown) (defun company-etags-find-table () - (let ((file (locate-dominating-file (or buffer-file-name - default-directory) - "TAGS"))) - (when (and file (file-regular-p file)) - (list (expand-file-name file))))) + (let ((dir (locate-dominating-file (or buffer-file-name + default-directory) + "TAGS"))) + (when dir + (list (expand-file-name "TAGS" dir))))) (defun company-etags-buffer-table () (or (and company-etags-use-main-table-list tags-table-list) -- 2.39.2