highlight regexp in buffer *Tags List* generated by tags-apropos ?

[tom.smith]

It'is more readable to highlight regexp in *Tags List* buffer, at least for me. Can official gnu emacs do this ?
I'am new in emacs lisp. Can anybody improve tags-apropos with better methods ?

Index: lisp/progmodes/etags.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/etags.el,v
retrieving revision 1.214
diff -u -r1.214 etags.el
--- lisp/progmodes/etags.el     1 Sep 2009 03:26:32 -0000       1.214
+++ lisp/progmodes/etags.el     15 Sep 2009 10:03:31 -0000
@@ -1925,6 +1925,8 @@
   (with-current-buffer "*Tags List*"
     (eval-and-compile (require 'apropos))
     (apropos-mode)
+    (hi-lock-mode)
+    (highlight-regexp regexp)
     ;; apropos-mode is derived from fundamental-mode and it kills
     ;; all local variables.
     (setq buffer-read-only t)))

---

"中国制造",讲述中国60年往事