[elpa] externals/auctex db2236e 06/11: ; Revert silencing the compiler (commit 07b79fca8b)

[Tassilo Horn]

branch: externals/auctex
commit db2236e0987ae93cbed06051bff6199a560b2648
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>

    ; Revert silencing the compiler (commit 07b79fca8b)
    
    * bib-cite.el (bib-find-next): Restore original implementation
    with `find-tag'.  `xref-find-definitions' has a different
    signature and cannot be used as a drop-in replacement.
---
 bib-cite.el | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/bib-cite.el b/bib-cite.el
index 095ccf5..bcf57ed 100644
--- a/bib-cite.el
+++ b/bib-cite.el
@@ -1,8 +1,7 @@
 ;;; bib-cite.el --- test
 ;; bib-cite.el - Display \cite, \ref or \label / Extract refs from BiBTeX file.
 
-;; Copyright (C) 1994-1999, 2001, 2003-2005, 2014, 2020
-;; Free Software Foundation, Inc.
+;; Copyright (C) 1994-1999, 2001, 2003-2005, 2014-2021 Free Software 
Foundation, Inc.
 
 ;; Author:    Peter S. Galbraith <psg@debian.org>
 ;; Created:   06 July 1994
@@ -983,14 +982,11 @@ documents, and the Emacs command `find-tag' doesn't allow 
to interactively
 find the next occurrence of a regexp."
   (interactive "P")
   (if (bib-master-file)                 ;Multi-file document
-      ;; FIXME: This check for `xref-find-definitions' should be
-      ;; removed once AUCTeX requires Emacs >= 25.1
-      (let ((func (if (fboundp 'xref-find-definitions)
-                      'xref-find-definitions
-                    'find-tag)))
-        (if prev-p
-            (funcall func t '- t)
-          (funcall func t t t)))
+      ;; FIXME: `find-tag' is replaced by `xref-find-definitions' in
+      ;; Emacs 25.1.  AUCTeX should track this change, sometime ...
+      (if prev-p
+          (find-tag t '- t)
+        (find-tag t t t))
     (if bib-cite-search-ring
         ;;FIXME: Should first make sure I move off initial \ref{}.
         (let ((regexp (concat bib-ref-regexpc bib-cite-search-ring "}")))