diff options
| -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 |