diff options
| author | Ihor Radchenko <yantar92@posteo.net> | 2024-01-16 11:46:42 +0100 |
|---|---|---|
| committer | Ihor Radchenko <yantar92@posteo.net> | 2024-01-16 11:46:42 +0100 |
| commit | de908f351696428344d92e1463a6011c3c85eab4 (patch) | |
| tree | 2f9d06718af568ce83413262b719f62a248b07f4 /lisp | |
| parent | 89931aece2f2ef9159041c9eb93305ec1067069c (diff) | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ox-bibtex.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/ox-bibtex.el b/lisp/ox-bibtex.el index 27f7311..39ac316 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) |