[elpa] externals/embark 8cfd4821b0 1/2: embark-export-apropos: Ensure that symbol order is preserved

[ELPA Syncer]

branch: externals/embark
commit 8cfd4821b050e859d6187bc79e09c5b8b6d09c28
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    embark-export-apropos: Ensure that symbol order is preserved
---
 embark.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/embark.el b/embark.el
index c723610855..236b7901b1 100644
--- a/embark.el
+++ b/embark.el
@@ -3165,9 +3165,11 @@ PRED is a predicate function used to filter the items."
   "Create apropos buffer listing SYMBOLS."
   (embark--export-rename "*Apropos*" "Apropos"
     (apropos-parse-pattern "") ;; Initialize apropos pattern
-    (apropos-symbols-internal
-     (delq nil (mapcar #'intern-soft symbols))
-     (bound-and-true-p apropos-do-all))))
+    ;; HACK: Ensure that order of exported symbols is kept.
+    (cl-letf (((symbol-function #'sort) (lambda (list _pred) (nreverse list))))
+      (apropos-symbols-internal
+       (delq nil (mapcar #'intern-soft symbols))
+       (bound-and-true-p apropos-do-all)))))
 
 (defun embark-export-customize-face (faces)
   "Create a customization buffer listing FACES."