]> code.delx.au - gnu-emacs-elpa/commitdiff
Don't let etags search for non-existent file.
authorNikolaj Schumacher <git@nschum.de>
Tue, 7 Apr 2009 08:15:11 +0000 (10:15 +0200)
committerNikolaj Schumacher <git@nschum.de>
Tue, 7 Apr 2009 20:55:20 +0000 (22:55 +0200)
company-etags.el

index 867dc877707039aad7febffedc86a371748f01ef..5f2280f77872074fb7c015de1fd7a5bc630304c8 100644 (file)
@@ -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)))