Don't let etags search for non-existent file.

[gnu-emacs-elpa] / company-etags.el

diff --git a/company-etags.el b/company-etags.el
index 867dc877707039aad7febffedc86a371748f01ef..5f2280f77872074fb7c015de1fd7a5bc630304c8 100644 (file)
--- 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)))