From b5f5b6d40dda3b2b4b380819c8363561bab9d14e Mon Sep 17 00:00:00 2001 From: Nikolaj Schumacher Date: Tue, 7 Apr 2009 10:15:11 +0200 Subject: [PATCH] Don't let etags search for non-existent file. --- company-etags.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/company-etags.el b/company-etags.el index 867dc8777..5f2280f77 100644 --- a/company-etags.el +++ b/company-etags.el @@ -39,7 +39,9 @@ buffer automatically." (make-variable-buffer-local 'company-etags-buffer-table) (defun company-etags-find-table () - (let ((dir (file-name-directory buffer-file-name)) + (let ((dir (if buffer-file-name + (file-name-directory buffer-file-name) + (expand-file-name default-directory))) file) (while (not (or file (equal dir "/"))) (unless (file-exists-p (setq file (expand-file-name "TAGS" dir))) -- 2.39.2