Add tentative key bindings for the three emoji commands

diff --git a/doc/emacs/mule.texi b/doc/emacs/mule.texi
index 81aabfb57d59daff7bfc826796782e976800fe5e..c5f41e734ff3ac50562da24a70607d60e5721ef4 100644 (file)
--- 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 be4a4eb0cb272fc510b079921929f4ec3aecdaef..7cc8ea3c6ecb3bd8f81a6c6fd8f5e84dec312faf 100644 (file)
--- 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