まず、これは完全に設計によるものです。ファイル内をジャンプする場合は、imenu
が適しています。
今のデザインを変更してみましょう:
(defun my-pop-tag-mark (arg)
"call `pop-tag-mark' without argument.
Pop to the next mark in the current buffer wit C-u prefix."
(interactive "P")
(when (consp arg)
(let ((buf (current-buffer))
index)
(loop for marker in (ring-elements find-tag-marker-ring)
for i from 0 below (ring-length find-tag-marker-ring)
do (when (eq (setq temp (marker-buffer marker))
(current-buffer))
(setq index i)
(return)))
(if index
(ring-insert find-tag-marker-ring (ring-remove find-tag-marker-ring index))
(error "no marker found in current buffer."))))
(pop-tag-mark))