emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/helm a230983d02 3/4: Remove deprecated find-tag-marker-rin


From: ELPA Syncer
Subject: [nongnu] elpa/helm a230983d02 3/4: Remove deprecated find-tag-marker-ring (#2512)
Date: Wed, 25 May 2022 07:58:29 -0400 (EDT)

branch: elpa/helm
commit a230983d02ee076724b1bd43a17f3aff1d78bfc3
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Remove deprecated find-tag-marker-ring (#2512)
    
    Use instead xref-push-marker-stack function which push directly to the
    mark ring without the need of using ring-insert.
---
 helm-tags.el | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/helm-tags.el b/helm-tags.el
index d2b3ea9408..3cbb38c3d8 100644
--- a/helm-tags.el
+++ b/helm-tags.el
@@ -24,7 +24,7 @@
 (require 'helm-grep)
 
 (defvar helm-etags-fuzzy-match)
-(declare-function ring-insert "ring")
+(declare-function xref-push-marker-stack "xref")
 
 
 (defgroup helm-tags nil
@@ -255,8 +255,6 @@ If there is no entry in cache, create one."
          (setq helm-source-etags-select
                 (helm-etags-build-source))))
 
-(defvar find-tag-marker-ring)
-
 (defsubst helm-etags--file-from-tag (fname)
   (cl-loop for ext in
            (cons "" (remove "" tags-compression-info-list))
@@ -280,7 +278,7 @@ If there is no entry in cache, create one."
          (linum (string-to-number (cadr split))))
     (if (null fname)
         (error "file %s not found" fname)
-      (ring-insert find-tag-marker-ring (point-marker))
+      (xref-push-marker-stack)
       (funcall switcher fname)
       (helm-goto-line linum t)
       (when (search-forward elm nil t)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]