diff options
| author | tazjin <mail@tazj.in> | 2021-12-08T19·24+0000 |
|---|---|---|
| committer | Gerrit Code Review <git@whitby.tvl.fyi> | 2021-12-08T19·24+0000 |
| commit | 2d4fa60ae7e33bd487ba055ee729ea471462c593 (patch) | |
| tree | 1aa256a4d8531579436d73a9e74d3bca134c2f5b /third_party/exwm/exwm-xim.el | |
| parent | f1e1f71883f07ca88428e597a3ee21b217841254 (diff) | |
| parent | 57b37cdc83bdebf2c2e2bcc0c01facc63c29c941 (diff) | |
Merge "subtree(3p/exwm): Update to upstream '10bd1223'" into canon r/3160
Diffstat (limited to 'third_party/exwm/exwm-xim.el')
| -rw-r--r-- | third_party/exwm/exwm-xim.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/third_party/exwm/exwm-xim.el b/third_party/exwm/exwm-xim.el index acf718e27fd3..9589648d22ca 100644 --- a/third_party/exwm/exwm-xim.el +++ b/third_party/exwm/exwm-xim.el @@ -1,6 +1,6 @@ ;;; exwm-xim.el --- XIM Module for EXWM -*- lexical-binding: t -*- -;; Copyright (C) 2019-2020 Free Software Foundation, Inc. +;; Copyright (C) 2019-2021 Free Software Foundation, Inc. ;; Author: Chris Feng <chris.w.feng@gmail.com> @@ -161,6 +161,10 @@ C,no" (defvar exwm-xim--_XIM_PROTOCOL nil) (defvar exwm-xim--_XIM_XCONNECT nil) +(defvar exwm-xim-buffer-p nil + "Whether current buffer is used by exwm-xim.") +(make-variable-buffer-local 'exwm-xim-buffer-p) + (defun exwm-xim--on-SelectionRequest (data _synthetic) "Handle SelectionRequest events on IMS window. @@ -585,6 +589,9 @@ The actual XIM request is in client message data or a property." (exwm-input--grab-keyboard)) (unwind-protect (with-temp-buffer + ;; This variable is used to test whether exwm-xim is enabled. + ;; Used by e.g. pyim-probe. + (setq-local exwm-xim-buffer-p t) ;; Always show key strokes. (let ((input-method-use-echo-area t) (exwm-input-line-mode-passthrough t)) |