bug#5666: 23.1; please define push-tag-mark in etags.el

bug#5666: 23.1; please define push-tag-mark in etags.el

[Richard Kim]

GNU/Emacs defines pop-tag-mark command to go along with find-tag
command for traversing back in cursor movement history.  However
GNU/Emacs does not define matching push-tag-mark command.  I would
like to request that something like the following be added to etags.el

  (defun push-tag-mark ()
    "Push the current position to the ring of markers so that
    \\[pop-tag-mark] can be used to come back to current position."
    (interactive)
    (ring-insert find-tag-marker-ring (point-marker)))

I make this request for the following reasons:

- This is a useful command by itself which I use often

- This would be useful for use by tools other than etags, e.g.,
  forthcoming cedet tool or even for existing tools, e.g.,

    (defadvice imenu
      (before use-etags-stack activate compile)
      "Push point onto stack used by etags so that \\[pop-tag-mark] can be used."
      (push-tag-mark))

    (defadvice cscope-call
      (before use-etags-stack activate compile)
      "Push point onto stack used by etags so that \\[pop-tag-mark] can be used."
      (push-tag-mark))

- Since xemacs defines push-tag-mark already, it makes it easier for
  tool developers, so that we don't have to add code such as the
  following in our own packages:

  (unless (fboundp 'push-tag-mark)
    (defun push-tag-mark ()
      (interactive)
      (ring-insert find-tag-marker-ring (point-marker))))

Thanks.

bug#5666: 23.1; please define push-tag-mark in etags.el

[Lars Ingebrigtsen]

Richard Kim <Richard.Kim1@synopsys.com>, Richard.Kim1@synopsys.com
writes:

> GNU/Emacs defines pop-tag-mark command to go along with find-tag
> command for traversing back in cursor movement history.  However
> GNU/Emacs does not define matching push-tag-mark command.  I would
> like to request that something like the following be added to etags.el
>
>   (defun push-tag-mark ()
>     "Push the current position to the ring of markers so that
>     \\[pop-tag-mark] can be used to come back to current position."
>     (interactive)
>     (ring-insert find-tag-marker-ring (point-marker)))

(I'm going through old bug reports that unfortunately didn't get any
response at the time.)

Emacs now has the xref framework for this stuff, and it has
`xref-push-marker-stack', so I think this issue should now be solved,
and I'm closing this bug report.  If this is still something that should
be done, please reopen.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no