diff options
| author | Mattias EngdegÄrd | 2023-02-15 12:21:44 +0100 |
|---|---|---|
| committer | Mattias EngdegÄrd | 2023-02-15 12:21:44 +0100 |
| commit | b9ef710dd3b46bdfe7a0352873a0f2be5b9e4ce4 (patch) | |
| tree | c8872ff999451067cf74b35255ab6bae2f094be7 | |
| parent | 16ba96ad3ddbd5607a2e40ffe5abfe53c3e6a1c5 (diff) | |
| download | emacs-b9ef710dd3b46bdfe7a0352873a0f2be5b9e4ce4.tar.gz emacs-b9ef710dd3b46bdfe7a0352873a0f2be5b9e4ce4.zip | |
; * lisp/international/emoji.el (emoji--narrow): move, avoid warning
| -rw-r--r-- | lisp/international/emoji.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/international/emoji.el b/lisp/international/emoji.el index b920582fee0..fec3e637f0c 100644 --- a/lisp/international/emoji.el +++ b/lisp/international/emoji.el | |||
| @@ -116,6 +116,11 @@ and also consults the `emoji-alternate-names' alist." | |||
| 116 | (emoji--add-recent glyph) | 116 | (emoji--add-recent glyph) |
| 117 | (insert glyph)))) | 117 | (insert glyph)))) |
| 118 | 118 | ||
| 119 | (defclass emoji--narrow (transient-suffix) | ||
| 120 | ((title :initarg :title) | ||
| 121 | (done-derived :initarg :done-derived) | ||
| 122 | (children :initarg :children))) | ||
| 123 | |||
| 119 | (defun emoji--setup-prefix (command title done-derived spec) | 124 | (defun emoji--setup-prefix (command title done-derived spec) |
| 120 | (transient-setup | 125 | (transient-setup |
| 121 | command nil nil | 126 | command nil nil |
| @@ -137,11 +142,6 @@ and also consults the `emoji-alternate-names' alist." | |||
| 137 | (defun emoji--group-description () | 142 | (defun emoji--group-description () |
| 138 | (car (oref transient--prefix scope))) | 143 | (car (oref transient--prefix scope))) |
| 139 | 144 | ||
| 140 | (defclass emoji--narrow (transient-suffix) | ||
| 141 | ((title :initarg :title) | ||
| 142 | (done-derived :initarg :done-derived) | ||
| 143 | (children :initarg :children))) | ||
| 144 | |||
| 145 | (transient-define-suffix emoji-insert-glyph () | 145 | (transient-define-suffix emoji-insert-glyph () |
| 146 | "Insert the emoji you selected." | 146 | "Insert the emoji you selected." |
| 147 | (interactive nil not-a-mode) | 147 | (interactive nil not-a-mode) |