From 7474b55e2812ec11f55817429b5e8815710e5112 Mon Sep 17 00:00:00 2001
From: Po Lu <luangruo@yahoo.com>
Date: Sun, 8 May 2022 05:28:11 +0000
Subject: [PATCH] Fix setting stipple via `set-face-stipple'

* lisp/faces.el (face-valid-attribute-values): Return results
for `:stipple' in correct format.
---
 lisp/faces.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/faces.el b/lisp/faces.el
index 395ea315bae..1ada05a7b8b 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1203,7 +1203,8 @@ an integer value."
             'integerp)
            (:stipple
             (and (memq (window-system frame) '(x ns pgtk haiku)) ; No stipple on w32
-                 (mapcar #'list
+                 (mapcar (lambda (item)
+                           (cons item item))
                          (apply #'nconc
                                 (mapcar (lambda (dir)
                                           (and (file-readable-p dir)
-- 
2.39.2