🚀 go-pugleaf

file-of-tag uses the size field on the first line of the file entry
in the tags file.  This size field is in chars.

If the TAGS file is edited by hand file-of-tag will screw up
horrible and find random file names.  This operation, the hand
editing, is common for large software systems where it takes
an appreciable amount of time to rebuild the TAGS file.

If files are always seperated by ^L characters (I believe this is
true), the following replacement for file-of-tag will always do
the right thing.  It is simpler too.

I'd like to suggest that this version of file-of-tag replace what
is in the distribution.


(defun file-of-tag ()
  "Return the file name of the file whose tags point is within.
Assumes the tag table is the current buffer.
File name returned is relative to tag table file's directory."
  (save-excursion
    (if (not (re-search-backward "^\C-L" nil t))
	(error "%s is a corrupt tags file" tags-file-name))
    (forward-line 1)
    (skip-chars-forward "^,\n")
    (buffer-substring (point)
		      (progn (beginning-of-line) (point)))))


-c
cire@cisco.com