about summary refs log tree commit diff
path: root/exwm-xim.el
diff options
context:
space:
mode:
authorAdrián Medraño Calvo <adrian@medranocalvo.com>2021-10-30T00·00+0000
committerAdrián Medraño Calvo <adrian@medranocalvo.com>2021-10-30T00·00+0000
commit52a0b1c5561c5bc8240bb2ea271e55659aff3981 (patch)
tree85f9f786b1bcf558d007e63e2c60fcfc268bc0fa /exwm-xim.el
parentdeabe9c2df0333a45b7dafbad1ad11b99e178d04 (diff)
parent3d648ef1c4a754ad89083868190b8e982568b6f5 (diff)
Merge branch 'tumashu.github.com/master' into externals/exwm
Diffstat (limited to 'exwm-xim.el')
-rw-r--r--exwm-xim.el7
1 files changed, 7 insertions, 0 deletions
diff --git a/exwm-xim.el b/exwm-xim.el
index 4bc084a73b28..9589648d22ca 100644
--- a/exwm-xim.el
+++ b/exwm-xim.el
@@ -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))