master 9a4cc857aa: Fix mouse clicking in read-face-name

[Lars Ingebrigtsen]

branch: master
commit 9a4cc857aa0f04b353990be6fc968c6dc765399c
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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).
---
 lisp/faces.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lisp/faces.el b/lisp/faces.el
index 5e0be11828..b765522914 100644
--- 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.