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

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

[nongnu] elpa/org-contrib de908f3516 09/10: lisp/ox-bibtex.el: Fix some


From: ELPA Syncer
Subject: [nongnu] elpa/org-contrib de908f3516 09/10: lisp/ox-bibtex.el: Fix some compiler warnings
Date: Wed, 17 Jan 2024 07:01:03 -0500 (EST)

branch: elpa/org-contrib
commit de908f351696428344d92e1463a6011c3c85eab4
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    lisp/ox-bibtex.el: Fix some compiler warnings
    
    * lisp/ox-bibtex.el (jump-fn): Use non-obsolete
    `org-link-set-parameters'.
    (org-bibtex-html-keywords-alist):
    (org-bibtex-html-entries-alist): Move defvar before first use.
---
 lisp/ox-bibtex.el | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/lisp/ox-bibtex.el b/lisp/ox-bibtex.el
index 27f73116f6..39ac316441 100644
--- a/lisp/ox-bibtex.el
+++ b/lisp/ox-bibtex.el
@@ -167,12 +167,15 @@ to `org-bibtex-citation-p' predicate."
       (and position (progn (goto-char position) t)))))
 
 (let ((jump-fn (car (cl-remove-if-not #'fboundp '(ebib 
org-bibtex-goto-citation)))))
-  (org-add-link-type "cite" jump-fn))
+  (org-link-set-parameters "cite" :follow jump-fn))
 
 
 
 ;;; Filters
 
+(defvar org-bibtex-html-entries-alist nil)  ; Dynamically scoped.
+(defvar org-bibtex-html-keywords-alist nil) ; Dynamically scoped.
+
 (defun org-bibtex-process-bib-files (tree backend info)
   "Send each bibliography in parse tree to \"bibtex2html\" process.
 Return new parse tree."
@@ -358,10 +361,6 @@ Fallback to `latex' back-end for other keywords."
 
 ;;; HTML Part
 
-(defvar org-bibtex-html-entries-alist nil)  ; Dynamically scoped.
-(defvar org-bibtex-html-keywords-alist nil) ; Dynamically scoped.
-
-
 ;;;; Advices
 
 (define-advice org-html-keyword (:around (fun keyword contents info) 
bibtex-keyword)



reply via email to

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