summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoost Kremers <joostkremers@fastmail.fm>2017-03-25 00:54:27 +0100
committerJoost Kremers <joostkremers@fastmail.fm>2017-03-25 00:54:27 +0100
commit621a87d444d9b9c479221fffcd8f7cb5ce2f7717 (patch)
tree6d2aa141ca556ca5330a9d68ba49257d89215dc9
parent2ad36af367e0c51531bc51d1ede192cbbb375482 (diff)
Include general inheritances when using biblatex scheme
-rw-r--r--parsebib.el9
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