branch: externals/auctex
commit db2236e0987ae93cbed06051bff6199a560b2648
Author: Arash Esbati <ar...@gnu.org>
Commit: Arash Esbati <ar...@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 <p...@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 "}")))
