From 2e561ab2276820896e6c1dd13406bfe9047bd1dc Mon Sep 17 00:00:00 2001 From: Yuuki Harano Date: Mon, 16 Aug 2021 21:50:32 +0900 Subject: [PATCH] * lisp/term/pgtk-win.el (pgtk-preedit-text): Write doc string --- lisp/term/pgtk-win.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/term/pgtk-win.el b/lisp/term/pgtk-win.el index f4247b030b2..3df450070c2 100644 --- a/lisp/term/pgtk-win.el +++ b/lisp/term/pgtk-win.el @@ -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 -- 2.39.5