scratch/emoji a59226c: Add tentative key bindings for the three emoji commands

[Lars Ingebrigtsen]

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

    Add tentative key bindings for the three emoji commands
---
 doc/emacs/mule.texi             | 10 ++++++++++
 lisp/international/mule-cmds.el |  6 ++++++
 2 files changed, 16 insertions(+)

diff --git a/doc/emacs/mule.texi b/doc/emacs/mule.texi
index 81aabfb..c5f41e7 100644
--- a/doc/emacs/mule.texi
+++ b/doc/emacs/mule.texi
@@ -576,6 +576,16 @@ using @kbd{C-x 8 @key{RET}} (@code{insert-char}) to insert 
a single
 character based on its Unicode name or code-point; see @ref{Inserting
 Text}.
 
+@cindex emoji
+  There are specialized commands for inserting emojis, and these can
+be found on the @kbd{C-x 8 e} submap.  @kbd{C-x 8 e e}
+(@code{emoji-insert}) will let you navigate through different emoji
+categories and then choose one.  @kbd{C-x 8 e l} (@code{emoji-list})
+will pop up a new buffer and list all the emojis; clicking (or using
+@kbd{RET}) on an emoji will insert it in the original buffer.
+Finally, @kbd{C-x 8 e s} (@code{emoji-search}) will allow you to
+search for an emoji based on its name.
+
 @node Select Input Method
 @section Selecting an Input Method
 
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index be4a4eb..7cc8ea3 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -3258,5 +3258,11 @@ as names, not numbers."
 
 (define-obsolete-function-alias 'ucs-insert 'insert-char "24.3")
 (define-key ctl-x-map "8\r" 'insert-char)
+(define-key ctl-x-map "8e"
+            (define-keymap
+              "e" #'emoji-insert
+              "i" #'emoji-insert
+              "s" #'emoji-search
+              "l" #'emoji-list))
 
 ;;; mule-cmds.el ends here