diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-12-07 20:38:40 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-12-07 20:38:40 +0000 |
commit | 3eeac1138c668adb93489712d27ce5799c2fa7d2 (patch) | |
tree | 532ed7aa1f82935cfc5f38d1e3bea1b7606a732f | |
parent | b51d86cca6787aa0aac07524faf63bfa59ac3373 (diff) | |
download | emacs-3eeac1138c668adb93489712d27ce5799c2fa7d2.tar.gz |
(etags-file-of-tag): Expand the file name
using the truename of default-directory.
-rw-r--r-- | lisp/progmodes/etags.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 () |