From 621a87d444d9b9c479221fffcd8f7cb5ce2f7717 Mon Sep 17 00:00:00 2001 From: Joost Kremers Date: Sat, 25 Mar 2017 00:54:27 +0100 Subject: Include general inheritances when using biblatex scheme --- parsebib.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/parsebib.el b/parsebib.el index 0cb9d6e..65ecbb0 100644 --- a/parsebib.el +++ b/parsebib.el @@ -336,10 +336,11 @@ such an inheritance schema." (when (eq inheritance 'biblatex) (setq inheritance parsebib--biblatex-inheritances)) (let* ((inheritable-fields (unless (eq inheritance 'BibTeX) - (cl-third (cl-find-if (lambda (elem) - (and (string-match-p (concat "\\b" (cdr (assoc-string "=type=" source-entry)) "\\b") (cl-first elem)) - (string-match-p (concat "\\b" (cdr (assoc-string "=type=" target-entry)) "\\b") (cl-second elem)))) - inheritance)))) + (append (cl-third (cl-find-if (lambda (elem) + (and (string-match-p (concat "\\b" (cdr (assoc-string "=type=" source-entry)) "\\b") (cl-first elem)) + (string-match-p (concat "\\b" (cdr (assoc-string "=type=" target-entry)) "\\b") (cl-second elem)))) + inheritance)) + (cl-third (assoc-string "all" inheritance))))) (new-fields (delq nil (mapcar (lambda (field) (let ((target-field (parsebib--get-target-field (car field) inheritable-fields))) (if (and target-field -- cgit v1.2.3