[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master b9ef710dd3 2/2: ; * lisp/international/emoji.el (emoji--narrow):
From: |
Mattias Engdegård |
Subject: |
master b9ef710dd3 2/2: ; * lisp/international/emoji.el (emoji--narrow): move, avoid warning |
Date: |
Wed, 15 Feb 2023 06:23:37 -0500 (EST) |
branch: master
commit b9ef710dd3b46bdfe7a0352873a0f2be5b9e4ce4
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
; * lisp/international/emoji.el (emoji--narrow): move, avoid warning
---
lisp/international/emoji.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/lisp/international/emoji.el b/lisp/international/emoji.el
index b920582fee..fec3e637f0 100644
--- a/lisp/international/emoji.el
+++ b/lisp/international/emoji.el
@@ -116,6 +116,11 @@ and also consults the `emoji-alternate-names' alist."
(emoji--add-recent glyph)
(insert glyph))))
+(defclass emoji--narrow (transient-suffix)
+ ((title :initarg :title)
+ (done-derived :initarg :done-derived)
+ (children :initarg :children)))
+
(defun emoji--setup-prefix (command title done-derived spec)
(transient-setup
command nil nil
@@ -137,11 +142,6 @@ and also consults the `emoji-alternate-names' alist."
(defun emoji--group-description ()
(car (oref transient--prefix scope)))
-(defclass emoji--narrow (transient-suffix)
- ((title :initarg :title)
- (done-derived :initarg :done-derived)
- (children :initarg :children)))
-
(transient-define-suffix emoji-insert-glyph ()
"Insert the emoji you selected."
(interactive nil not-a-mode)