[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/pgtk 2e561ab 2/3: * lisp/term/pgtk-win.el (pgtk-preedit-text): W
From: |
Yuuki Harano |
Subject: |
feature/pgtk 2e561ab 2/3: * lisp/term/pgtk-win.el (pgtk-preedit-text): Write doc string |
Date: |
Mon, 16 Aug 2021 10:04:26 -0400 (EDT) |
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