discard note and pdf fields of cross-referenced entries

tmalsburg · Nov 2, 2017 · 0af134c · 0af134c
1 parent 54de085
commit 0af134c
Showing 1 changed file with 15 additions and 3 deletions.
diff --git a/bibtex-completion.el b/bibtex-completion.el
@@ -517,7 +517,13 @@ reparsed whereas the other files in FILES were up-to-date."
                       ;; Insert an empty field so we can discard the crossref info if needed:
                       (append entry
                               (cl-acons "" ""
-                                     (gethash (downcase crossref) entry-hash))))
+                                        (cl-remove-if
+                                         (lambda (field)
+                                           (member (car field)
+                                                   '("has-note="
+                                                     "=has-pdf="
+                                                     bibtex-completion-pdf-field)))
+                                         (gethash (downcase crossref) entry-hash)))))
                    entry))))
    else
    ;; The file was not reparsed.
@@ -535,8 +541,14 @@ reparsed whereas the other files in FILES were up-to-date."
                       ;; Discard crossref info and resolve crossref again:
                       (append (--take-while (> (length (car it)) 0) entry-alist)
                               (cl-acons "" ""
-                                     (gethash (downcase crossref) entry-hash)))))
-                  entry)))))
+                                        (cl-remove-if
+                                         (lambda (field)
+                                           (member (car field)
+                                                   '("has-note="
+                                                     "=has-pdf="
+                                                     bibtex-completion-pdf-field)))
+                                         (gethash (downcase crossref) entry-hash)))))
+                  entry))))))
 
 (defun bibtex-completion-make-entry-hash (files reparsed-files)
   "Return a hash table of all potentially cross-referenced bibliography entries in FILES,