[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)