scratch/emoji 2ac0891: Separate out the search into own command so it can be bound

[Lars Ingebrigtsen]

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

    Separate out the search into own command so it can be bound
---
 lisp/play/emoji.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lisp/play/emoji.el b/lisp/play/emoji.el
index ddae1c2..a15c8d9 100644
--- a/lisp/play/emoji.el
+++ b/lisp/play/emoji.el
@@ -55,6 +55,7 @@
 (defvar emoji--names (make-hash-table :test #'equal))
 (defvar emoji--done-derived nil)
 (defvar emoji--recent (list "😀" "😖"))
+(defvar emoji--insert-buffer)
 
 ;;;###autoload
 (defun emoji-insert (&optional text)
@@ -67,7 +68,12 @@ of a visual interface."
       (emoji--choose-emoji)
     (funcall (intern "emoji--command-Emoji"))))
 
-(defvar emoji--insert-buffer)
+;;;###autoload
+(defun emoji-search ()
+  "Choose and insert an emoji glyph by searching for an emoji name."
+  (interactive "*")
+  (emoji--init)
+  (emoji--choose-emoji))
 
 ;;;###autoload
 (defun emoji-list ()