From: Po Lu <luangruo@yahoo.com>
Date: Wed, 29 Dec 2021 10:59:47 +0000 (+0800)
Subject: Fix a hang on servers that don't support the X Keyboard Extension
X-Git-Tag: emacs-29.0.90~3373
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb386e22e129f77bbb2d9faa757cf5bc4f5d90e1;p=emacs.git

Fix a hang on servers that don't support the X Keyboard Extension

* src/xfns.c (Fx_backspace_delete_keys_p): Don't block input
before checking for Xkb.
---

diff --git a/src/xfns.c b/src/xfns.c
index ae01bb04053..7c4e6943203 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -7749,11 +7749,11 @@ present and mapped to the usual X keysyms.  */)
   Display *dpy = FRAME_X_DISPLAY (f);
   Lisp_Object have_keys;
 
-  block_input ();
-
   if (!FRAME_DISPLAY_INFO (f)->supports_xkb)
     return Qlambda;
 
+  block_input ();
+
   /* In this code we check that the keyboard has physical keys with names
      that start with BKSP (Backspace) and DELE (Delete), and that they
      generate keysym XK_BackSpace and XK_Delete respectively.