[nongnu] elpa/racket-mode c5bee6895b: Fix bug in racket--describe-search-display-sort

[ELPA Syncer]

branch: elpa/racket-mode
commit c5bee6895b2d028820a75356abacc19a5ed11918
Author: Greg Hendershott <git@greghendershott.com>
Commit: Greg Hendershott <git@greghendershott.com>

    Fix bug in racket--describe-search-display-sort
    
    Due to a bad pcase pattern it was sorting by package name instead of
    language families.
---
 racket-describe.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/racket-describe.el b/racket-describe.el
index f9f8278da8..d7b26e92ad 100644
--- a/racket-describe.el
+++ b/racket-describe.el
@@ -719,8 +719,10 @@ extract."
            (v v)))
        (key (v)
          (pcase-let
-             ((`(,what ,from ,fams) (get-text-property 0 'racket-affix v))
-              (`(,sort ,pkg-sort) (get-text-property 0 'racket-sort v)))
+             ((`(,what ,from ,_pkg ,fams)
+               (get-text-property 0 'racket-affix v))
+              (`(,sort ,pkg-sort)
+               (get-text-property 0 'racket-sort v)))
            (list (term v)
                  (adjust-fams fams)
                  pkg-sort