From: Rudi Grinberg Date: Tue, 23 Mar 2021 06:22:01 +0000 (-0700) Subject: Do not use deprecated marker api X-Git-Tag: 0.99~2379 X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=0ce90ffe5b904633c9985ca9d5c8d27f4f6eb086 Do not use deprecated marker api Use xref-push-marker-stack to push find-tag-marker-ring Signed-off-by: Rudi Grinberg --- 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)))))))))