From c1a295da9b285aecb9e750392f797fde4727bc45 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 20 Jan 2016 01:49:43 -0500 Subject: bog-list-orphan-citekeys: Fix sorting in Emacs 25 --- bog.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/bog.el b/bog.el index cecc390..8b465e9 100644 --- a/bog.el +++ b/bog.el @@ -493,8 +493,12 @@ file." (insert "\n") (dolist (file files) (let* ((text-cks (bog-non-heading-citekeys-in-file file)) - (nohead-cks (nreverse (cl-set-difference text-cks heading-cks - :test #'string=)))) + (nohead-cks (cl-set-difference text-cks heading-cks + :test #'string=))) + ;; As of Emacs 25.1, `cl-set-difference' keeps the order of + ;; LIST1 rather than leaving it reversed. + (unless (string-lessp (nth 0 nohead-cks) (nth 1 nohead-cks)) + (setq nohead-cks (nreverse nohead-cks))) (when nohead-cks (insert (format "* %s\n\n%s\n\n" (file-name-nondirectory file) -- cgit v1.2.3