(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)