diff options
| author | Richard M. Stallman | 1996-12-07 20:38:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-12-07 20:38:40 +0000 |
| commit | e196e7f212763719a15c7da2ce879a43672bbacd (patch) | |
| tree | 9d738025c31c92fe8ce1a9f5ee3d620deb3dd403 | |
| parent | 3183b23074b3ffc55b208d817b26aa3736b44f94 (diff) | |
| download | emacs-e196e7f212763719a15c7da2ce879a43672bbacd.tar.gz emacs-e196e7f212763719a15c7da2ce879a43672bbacd.zip | |
(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'." | |||
| 1001 | (defun etags-file-of-tag () | 1001 | (defun etags-file-of-tag () |
| 1002 | (save-excursion | 1002 | (save-excursion |
| 1003 | (re-search-backward "\f\n\\([^\n]+\\),[0-9]*\n") | 1003 | (re-search-backward "\f\n\\([^\n]+\\),[0-9]*\n") |
| 1004 | (buffer-substring (match-beginning 1) (match-end 1)))) | 1004 | (expand-file-name (buffer-substring (match-beginning 1) (match-end 1)) |
| 1005 | (file-truename default-directory)))) | ||
| 1005 | 1006 | ||
| 1006 | 1007 | ||
| 1007 | (defun etags-tags-completion-table () | 1008 | (defun etags-tags-completion-table () |