(etags-file-of-tag): Expand the file name

using the truename of default-directory.
This commit is contained in:
Richard M. Stallman 1996-12-07 20:38:40 +00:00
parent 3183b23074
commit e196e7f212

View file

@ -1001,7 +1001,8 @@ See documentation of variable `tags-file-name'."
(defun etags-file-of-tag ()
(save-excursion
(re-search-backward "\f\n\\([^\n]+\\),[0-9]*\n")
(buffer-substring (match-beginning 1) (match-end 1))))
(expand-file-name (buffer-substring (match-beginning 1) (match-end 1))
(file-truename default-directory))))
(defun etags-tags-completion-table ()