Invalid face reference: tags-tag-face

Invalid face reference: tags-tag-face

[Drew Adams]

emacs -Q
visit a tags table, and then do M-x list-tags.
Check buffer *Messages* for error message:
  "Invalid face reference: tags-tag-face"
 
It is soon updated, so you see, for instance, 
 "Invalid face reference: tags-tag-face [161 times]"
 
The problem seems to be the (multiple) occurrences of things like
this:
 
(make-text-button 
 pt (point)
 'tag-info tag-info
 'file-path path
 'goto-func goto-func
 'action (lambda (button)
    (let ((tag-info (button-get button 'tag-info))
   (goto-func (button-get button 'goto-func)))
      (tag-find-file-of-tag (button-get button 'file-path))
      (widen)
      (funcall goto-func tag-info)))
 'face 'tags-tag-face ; <====== SHOULD NOT BE QUOTED
 'type 'button)
 
The problem is that `tags-tag-face' is not a face; it is a variable
whose value is a face - face `default', by default. Presumably, the
quote should be removed. There are several such occurrences in
etags.el - in fact all occurrences of `tags-tag-face' seem to be
incorrectly quoted.
 

In GNU Emacs 22.1.90.1 (i386-mingw-nt5.1.2600)
 of 2008-01-30 on PRETEST
Windowing system distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4) --cflags -Ic:/gnuwin32/include'