branch: externals/org
commit 02ae908b038a498d75ea95123b8d01211e22ab3d
Author: TEC <g...@tecosaur.net>
Commit: TEC <g...@tecosaur.net>

    oc: Add org-cite-processor function
    
    * lisp/oc.el (org-cite-processor): As a counterpart to the other cite
    information accessor functions, add `org-cite-processor`.
---
 lisp/oc.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lisp/oc.el b/lisp/oc.el
index 260a4d3e1a..dde6f3a328 100644
--- a/lisp/oc.el
+++ b/lisp/oc.el
@@ -838,6 +838,11 @@ tokens.  Spurious spaces are ignored."
                s))
       (nreverse result))))
 
+(defun org-cite-processor (info)
+  "Return expected citation/bibliography processor.
+INFO is a plist used as a communication channel."
+  (car (plist-get info :cite-export)))
+
 (defun org-cite-bibliography-style (info)
   "Return expected bibliography style.
 INFO is a plist used as a communication channel."

Reply via email to