From b188a1fcf574e99f9a5e3d55c3be7c1e7ab04d69 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 9 Aug 2019 11:29:48 -0700 Subject: [PATCH] x11-screen: Fix cut/paste after upcasing X atom names. --- src/x11-screen/x11-screen.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/x11-screen/x11-screen.scm b/src/x11-screen/x11-screen.scm index f1422086f..5113af035 100644 --- a/src/x11-screen/x11-screen.scm +++ b/src/x11-screen/x11-screen.scm @@ -856,7 +856,7 @@ USA. (let ((string (x-get-atom-name display atom))) (if (not (string? string)) (error "X error (XGetAtomName):" string atom)) - (intern string)))) + (string->symbol string)))) (hash-table-set! table atom symbol) symbol))))) -- 2.25.1