From 0ce90ffe5b904633c9985ca9d5c8d27f4f6eb086 Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Mon, 22 Mar 2021 23:22:01 -0700 Subject: [PATCH] Do not use deprecated marker api Use xref-push-marker-stack to push find-tag-marker-ring Signed-off-by: Rudi Grinberg --- misc/fuel/fuel-edit.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/misc/fuel/fuel-edit.el b/misc/fuel/fuel-edit.el index bbc7049049..0b57ba9a92 100644 --- 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))))))))) -- 2.34.1