Fix mouse clicking in read-face-name

* lisp/faces.el (read-face-name): Put the data in the right
position so that clicking on completions work (bug#53960).

diff --git a/lisp/faces.el b/lisp/faces.el
index 5e0be11828261eb1b7a77344ac013e2caaba7186..b765522914d60c3caf06d62b7b6f893af7e05903 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1114,10 +1114,9 @@ returned.  Otherwise, DEFAULT is returned verbatim."
              (lambda (faces)
                (mapcar
                 (lambda (face)
-                  (list (concat (propertize "SAMPLE" 'face face)
-                                "\t")
-                        ""
-                        face))
+                  (list face
+                        (concat (propertize "SAMPLE" 'face face) "\t")
+                        ""))
                 faces))))
           aliasfaces nonaliasfaces faces)
       ;; Build up the completion tables.