X-Git-Url: https://git.donarmstrong.com/?p=org-ref.git;a=blobdiff_plain;f=org-ref.el;h=569a8f2f1e79255090f353c548188551f103bbf5;hp=465502629918becbad0e4e4ad7488200411a764f;hb=71188c9cafd0f71079b9a96db7ca1b186c2b7547;hpb=a0cf8796ba016252193e69bf61cf49448cd89886 diff --git a/org-ref.el b/org-ref.el index 4655026..569a8f2 100644 --- a/org-ref.el +++ b/org-ref.el @@ -2751,7 +2751,7 @@ Shows bad citations, ref links and labels" (setq keys (org-ref-split-and-strip-string link-string)) (setq years (mapcar 'org-ref-get-citation-year keys)) (setq data (mapcar* (lambda (a b) `(,a . ,b)) years keys)) - (setq data (cl-sort data (lambda (x y) (< (string-to-int (car x)) (string-to-int (car y)))))) + (setq data (cl-sort data (lambda (x y) (< (string-to-number (car x)) (string-to-number (car y)))))) ;; now get the keys separated by commas (setq keys (mapconcat (lambda (x) (cdr x)) data ",")) ;; and replace the link with the sorted keys