[elpa] externals/embark bdabc5396a 2/2: Merge pull request #564 from minad/apropos-no-sort

[ELPA Syncer]

branch: externals/embark
commit bdabc5396a935edb8bfd2104b67703b110fad6ef
Merge: 09da327d43 8cfd4821b0
Author: Omar Antolín Camarena <omar.antolin@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #564 from minad/apropos-no-sort
    
    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."