procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/term/pgtk-win.el (pgtk-preedit-text): Write doc string

Browse source
This commit is contained in:
Yuuki Harano 2021-08-16 21:50:32 +09:00
parent a925e6b2b5
commit 2e561ab227
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/term/pgtk-win.el
View file

@ -319,7 +319,11 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
(defvar pgtk-preedit-overlay nil)
(defun pgtk-preedit-text (e)
(defun pgtk-preedit-text (event)
"An internal function to display preedit text from input method.
EVENT is an event of PGTK_PREEDIT_TEXT_EVENT.
It contains colors and texts."
(interactive "e")
(when pgtk-preedit-overlay
(delete-overlay pgtk-preedit-overlay))
@ -328,7 +332,7 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
(let ((ovstr "")
(idx 0)
atts ov str color face-name)
(dolist (part (nth 1 e))
(dolist (part (nth 1 event))
(setq str (car part))
(setq face-name (intern (format "pgtk-im-%d" idx)))
(eval