From 8d968c0f22347c9a4b65fdd142c0f050db918745 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 14 Feb 2025 23:05:29 -0500 Subject: [PATCH] lisp/term/xterm.el (xterm--query-name-and-version): Don't quote lambda --- lisp/term/xterm.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index 15101ebd59d..4f23a909b69 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el @@ -912,10 +912,10 @@ We run the first FUNCTION whose STRING matches the input events." (catch 'result (xterm--query "\e[>0q" - '(("\eP>|" . (lambda () - ;; The reply should be: \e P > | STRING \e \\ - (let ((str (xterm--read-string ?\e ?\\))) - (throw 'result str)))))) + `(("\eP>|" . ,(lambda () + ;; The reply should be: \e P > | STRING \e \\ + (let ((str (xterm--read-string ?\e ?\\))) + (throw 'result str)))))) nil))) (defun xterm--push-map (map basemap)