diff options
| author | Yuuki Harano <masm+github@masm11.me> | 2021-08-16 21:50:32 +0900 |
|---|---|---|
| committer | Yuuki Harano <masm+github@masm11.me> | 2021-08-16 21:50:32 +0900 |
| commit | 2e561ab2276820896e6c1dd13406bfe9047bd1dc (patch) | |
| tree | 1359304626c4ef933c6f480c59a52b3bd9f51813 /lisp | |
| parent | a925e6b2b571dec8e17fba73dba69503674cc49e (diff) | |
| download | emacs-2e561ab2276820896e6c1dd13406bfe9047bd1dc.tar.gz | |
* lisp/term/pgtk-win.el (pgtk-preedit-text): Write doc string
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/term/pgtk-win.el | 8 |
1 files 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 |