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

[Yuuki Harano]

branch: feature/pgtk
commit 2e561ab2276820896e6c1dd13406bfe9047bd1dc
Author: Yuuki Harano <masm+github@masm11.me>
Commit: Yuuki Harano <masm+github@masm11.me>

    * 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 f4247b0..3df4500 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