diff options
author | Joost Kremers <joostkremers@fastmail.fm> | 2017-03-25 00:54:27 +0100 |
---|---|---|
committer | Joost Kremers <joostkremers@fastmail.fm> | 2017-03-25 00:54:27 +0100 |
commit | 621a87d444d9b9c479221fffcd8f7cb5ce2f7717 (patch) | |
tree | 6d2aa141ca556ca5330a9d68ba49257d89215dc9 | |
parent | 2ad36af367e0c51531bc51d1ede192cbbb375482 (diff) |
Include general inheritances when using biblatex scheme
-rw-r--r-- | parsebib.el | 9 |
1 files 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 |