diff --git a/citeproc-cite.el b/citeproc-cite.el index 729ad13..fc892a5 100644 --- a/citeproc-cite.el +++ b/citeproc-cite.el @@ -352,15 +352,17 @@ For the optional INTERNAL-LINKS argument see (defun citeproc-proc-apply-citation-modes (proc) "Apply mode to the first cite in each citation in PROC." - (dolist (citation (queue-head (citeproc-proc-citations proc))) - (let ((mode (citeproc-citation-mode citation)) - (cites (citeproc-citation-cites citation)) - (ignore-et-al (citeproc-citation-ignore-et-al citation))) - (-when-let (mode-rep - (alist-get mode citeproc-cite--from-mode-alist)) - (setf (car cites) (nconc (car cites) mode-rep))) - (when ignore-et-al - (push '(ignore-et-al . t) (car cites)))))) + (let ((category (citeproc-style-category (citeproc-proc-style proc)))) + (when (not (member category '("numeric" "label"))) + (dolist (citation (queue-head (citeproc-proc-citations proc))) + (let ((mode (citeproc-citation-mode citation)) + (cites (citeproc-citation-cites citation)) + (ignore-et-al (citeproc-citation-ignore-et-al citation))) + (-when-let (mode-rep + (alist-get mode citeproc-cite--from-mode-alist)) + (setf (car cites) (nconc (car cites) mode-rep))) + (when ignore-et-al + (push '(ignore-et-al . t) (car cites)))))))) (defun citeproc-proc-group-and-collapse-cites (proc) "Group and collapse cites in all citations of PROC."