diff --git a/lisp/oc-biblatex.el b/lisp/oc-biblatex.el index bb1ec1e4e..c8aa96de0 100644 --- a/lisp/oc-biblatex.el +++ b/lisp/oc-biblatex.el @@ -41,7 +41,7 @@ ;; ;; - author (a), including caps (c), full (f) and caps-full (cf) variants, ;; - locators (l), including bare (b), caps (c) and bare-caps (bc) variants, -;; - noauthor (na), +;; - noauthor (na), including bare (b) variant, ;; - nocite (n), ;; - text (t), including caps (c) variant, ;; - default style, including bare (b), caps (c) and bare-caps (bc) variants. @@ -232,7 +232,10 @@ a property list." ((or "bare-caps" "bc") '("Notecite")) (_ '("pnotecite")))) ;; "noauthor" style. - (`(,(or "noauthor" "na") . ,_) '("autocite*")) + (`(,(or "noauthor" "na") . ,variant) + (pcase variant + ((or "bare" "b") '("cite*")) + (_ '("autocite*")))) ;; "nocite" style. (`(,(or "nocite" "n") . ,_) '("nocite" nil t)) ;; "text" style. @@ -308,7 +311,7 @@ to the document, and set styles." :cite-styles '((("author" "a") ("caps" "c") ("full" "f") ("caps-full" "cf")) (("locators" "l") ("bare" "b") ("caps" "c") ("bare-caps" "bc")) - (("noauthor" "na")) + (("noauthor" "na") ("bare" "b")) (("nocite" "n")) (("text" "t") ("caps" "c")) (("nil") ("bare" "b") ("caps" "c") ("bare-caps" "bc"))))