lisp/term/xterm.el (xterm--query-name-and-version): Don't quote lambda

(cherry picked from commit 8d968c0f22347c9a4b65fdd142c0f050db918745)

diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index 15101ebd59db2cb5db796ef300d952ff99b40056..4f23a909b6959a2c22a64acf0f38c5e62dc4ad86 100644 (file)
--- 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)