Possible etags-table.el BUG. Can anyone approve?

[Oleksandr Gavenko]

I download http://www.emacswiki.org/emacs/etags-table.el ,
load and set

(setq etags-table-alist
      (list
       '(".*\\.[ch]" "c:/Program Files/Microsoft 
SDKs/Windows/v6.1/include/TAGS")
       '(".*\\.cpp" "c:/Program Files/Microsoft 
SDKs/Windows/v6.1/include/TAGS")
       ))

and got error in *.cpp files when try visit file by M-. :

ad-Orig-visit-tags-table-buffer: File c:/Program Files/Microsoft 
SDKs/Windows/v6.1/Include/TAGSpp is not a valid tags table

I will contact with author but little more later.

After debug I found from which place it come:

  'etags-table-build-table-list'  function.

This peace of code look strange for me and original place of error:

;; Go through mapping alist
(mapc (lambda (mapping)
        (let ((key (car mapping))
              (tag-files (cdr mapping)))
          (when (string-match key filename)
            (mapc (lambda (tag-file)
                    (add-to-list 'tables (file-truename (replace-match 
tag-file t nil filename)) t))
                  tag-files))))
      etags-table-alist)

I don't understand why code contain:

  (replace-match tag-file t nil filename)

For me this code must be rewritten to:

(mapc (lambda (mapping)
        (let ((key (car mapping))
              (tag-files (cdr mapping)))
          (when (string-match key filename)
            (setq tables (append tables (mapcar 'file-truename 
tag-files))))))
      etags-table-alist)

Originally author in 'etags-table-alist' docs write $ at the end of regex
so if I rewrite regex all work OK. But why do replace-match????