Re: How to return to the position from where I did tags-query-replace?

[Ambrose Laing]

I would like the same outcome as the original poster: I would like for 
tags-query-replace to always return to the position of the point when the 
command was invoked, except that I want it to happen programmatically.  Here 
are two approaches I tried, neither of which works.  In each case, if I run the 
commands manually, it does what I want, but if I put the commands into the 
function, it doesn't work.

(defun my-tags-query-replace ()
  (interactive)
  (point-to-register "a")
  (command-execute 'tags-query-replace)
  (jump-to-register "a"))

(defun my-tags-query-replace ()
  (interactive)
  (bc-set)
  (command-execute 'tags-query-replace)
  (bc-goto-current)
  (setq *bc-bookmarks* (cdr *bc-bookmarks*)))

Any ideas how to do this correctly?
Thanks you,
Ambrose