From e196e7f212763719a15c7da2ce879a43672bbacd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 7 Dec 1996 20:38:40 +0000 Subject: [PATCH] (etags-file-of-tag): Expand the file name using the truename of default-directory. --- lisp/progmodes/etags.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index aefa78c33b1..80d56df9329 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -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 () -- 2.39.5