Do not use deprecated marker api

Use xref-push-marker-stack to push find-tag-marker-ring

Signed-off-by: Rudi Grinberg <me@rgrinberg.com>

diff --git a/misc/fuel/fuel-edit.el b/misc/fuel/fuel-edit.el
index bbc70490495979acea6b1ba2a22adff363dfcc40..0b57ba9a92a0a936f221af670d8c10228453acdb 100644 (file)
--- a/misc/fuel/fuel-edit.el
+++ b/misc/fuel/fuel-edit.el
@@ -17,6 +17,7 @@
 (require 'fuel-eval)
 (require 'fuel-base)
 (require 'factor-mode)
+(require 'xref)
 
 (require 'etags)
 
@@ -80,7 +81,7 @@ With prefix, asks for the word to edit."
     (if (and (not arg) (factor-on-vocab))
         (fuel-edit-vocabulary nil word)
       (fuel-edit--try-edit (fuel-eval--send/wait cmd)))
-    (when marker (ring-insert find-tag-marker-ring marker))))
+    (when marker (xref-push-marker-stack marker))))
 
 (defun fuel-edit-word-doc-at-point (&optional arg word)
   "Opens a new window visiting the documentation file for the word at point.
@@ -99,7 +100,7 @@ With prefix, asks for the word to edit."
                   (y-or-n-p (concat "No documentation found. "
                                     "Do you want to open the vocab's "
                                     "doc file? ")))
-         (when marker (ring-insert find-tag-marker-ring marker))
+         (when marker (xref-push-marker-stack marker))
          (find-file-other-window
           (format "%s-docs.factor"
                   (file-name-sans-extension (buffer-file-name)))))))))