From 531b57e82558c6ea7f1182f9f355a0c9d71d130b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Thu, 7 Oct 2021 21:23:21 +0300 Subject: [PATCH 19/76] Deprecate org-bibtex-headline-format-function. --- lisp/ol-bibtex.el | 4 ++-- lisp/org-compat.el | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/ol-bibtex.el b/lisp/ol-bibtex.el index 812f57f10..4406a68d4 100644 --- a/lisp/ol-bibtex.el +++ b/lisp/ol-bibtex.el @@ -256,7 +256,7 @@ a missing title field." :version "24.1" :type 'boolean) -(defcustom org-bibtex-headline-format-function +(defcustom org-bibtex-heading-format-function (lambda (entry) (cdr (assq :title entry))) "Function returning the heading text for `org-bibtex-write'. It should take a single argument, the bibtex entry (an alist as @@ -711,7 +711,7 @@ Return the number of saved entries." (val (lambda (field) (cdr (assoc field entry)))) (togtag (lambda (tag) (org-toggle-tag tag 'on)))) (org-insert-heading) - (insert (funcall org-bibtex-headline-format-function entry)) + (insert (funcall org-bibtex-heading-format-function entry)) (org-bibtex-put "TITLE" (funcall val :title)) (org-bibtex-put org-bibtex-type-property-name (downcase (funcall val :type))) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index c8cf4320e..2ef5b6b0f 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -346,6 +346,8 @@ Counting starts at 1." 'org-babel-ref-heading-body "9.5") (define-obsolete-function-alias 'org-beamer-headline 'org-beamer-heading "9.5") +(define-obsolete-variable-alias 'org-bibtex-headline-format-function + 'org-bibtex-heading-format-function "9.5") (defun org-in-fixed-width-region-p () "Non-nil if point in a fixed-width region." -- 2.33.0