Fix indexing gendered emoji forms that have "person" base forms

* lisp/international/emoji.el (emoji--base-name): Index man/woman
on the generic form we have read already (bug#52580).

diff --git a/lisp/international/emoji.el b/lisp/international/emoji.el
index 1202571b3206a2de2166cc8bff09de3b68d116c0..d0e906848cbeba441471fcfb5bf2cd19434ff4fa 100644 (file)
--- a/lisp/international/emoji.el
+++ b/lisp/international/emoji.el
@@ -417,10 +417,13 @@ the name is not known."
                                                base)))
     ;; If we have (for instance) "person golfing", and we're adding
     ;; "man golfing", make the latter a derivation of the former.
-    (if (or (gethash (concat "person " non-binary) derivations)
-            (gethash non-binary derivations))
-        non-binary
-      base)))
+    (cond
+     ((gethash (concat "person " non-binary) derivations)
+      (concat "person " non-binary))
+     ((gethash non-binary derivations)
+      non-binary)
+     (t
+      base))))
 
 (defun emoji--split-subgroup (subgroup)
   (let ((prefixes '("face" "hand" "person" "animal" "plant"