scratch/emoji f960d94: Remove one level of menus in Smileys > face

[Lars Ingebrigtsen]

branch: scratch/emoji
commit f960d942b3fa696a4a6856a680f308d31efa06a9
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Remove one level of menus in Smileys > face
---
 lisp/play/emoji.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/play/emoji.el b/lisp/play/emoji.el
index 153f211..8563a03 100644
--- a/lisp/play/emoji.el
+++ b/lisp/play/emoji.el
@@ -285,8 +285,11 @@ when the command was issued."
                  ((equal group "Smileys & Emotion")
                   (if (equal subgroup "emotion")
                       (emoji--add-glyph glyph "Emotion" nil)
-                    (emoji--add-glyph glyph "Smileys"
-                                      (emoji--split-subgroup subgroup))))
+                    (let ((subs (emoji--split-subgroup subgroup)))
+                      ;; Remove one level of menus in the face case.
+                      (when (equal (car subs) "face")
+                        (pop subs))
+                      (emoji--add-glyph glyph "Smileys" subs))))
                  ;; Don't modify the rest.
                  (t
                   (emoji--add-glyph