From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 7 Dec 1996 20:38:40 +0000 (+0000)
Subject: (etags-file-of-tag): Expand the file name
X-Git-Tag: emacs-20.1~3319
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e196e7f212763719a15c7da2ce879a43672bbacd;p=emacs.git

(etags-file-of-tag): Expand the file name
using the truename of default-directory.
---

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