From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 13 Feb 2022 08:35:55 +0000 (+0100)
Subject: Fix mouse clicking in read-face-name
X-Git-Tag: emacs-29.0.90~2342
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9a4cc857aa0f04b353990be6fc968c6dc765399c;p=emacs.git

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 5e0be118282..b765522914d 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.