1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00

; Always set 'emoji--insert-buffer'

* lisp/international/emoji.el (emoji-list): Always set insert buffer.
(Bug#73390)

Copyright-paperwork-exempt: yes
This commit is contained in:
Scott Bell 2024-09-20 14:16:52 -07:00 committed by Eli Zaretskii
parent 35e356f958
commit ecfebb5abb

View File

@ -164,12 +164,12 @@ when the command was invoked."
(let ((buf (current-buffer)))
(emoji--init)
(switch-to-buffer (get-buffer-create "*Emoji*"))
(setq-local emoji--insert-buffer buf)
;; Don't regenerate the buffer if it already exists -- this will
;; leave point where it was the last time it was used.
(when (zerop (buffer-size))
(let ((inhibit-read-only t))
(emoji-list-mode)
(setq-local emoji--insert-buffer buf)
(emoji--list-generate nil (cons nil emoji--labels))
(goto-char (point-min))))))