lisp/faces.el (list-faces-display): Add help-mode-map to output.

Fixes: debbugs:8939

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 872b4945837..ee8c301dbcd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -8,6 +8,10 @@
         to binary to possibly avoid line encoding issues on Windows (among
         other things).
 
+2011-06-27  Drew Adams  <drew.adams@oracle.com>
+
+        * faces.el (list-faces-display): Add help-mode-map to output (bug#8939).
+
 2011-06-26  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
         * net/network-stream.el (open-network-stream): Return an :error
diff --git a/lisp/faces.el b/lisp/faces.el
index 3fb8bc80931..c29d8c9bfd8 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1255,7 +1255,7 @@ arg, prompt for a regular expression."
         (insert
          (substitute-command-keys
           (concat
-           "Use "
+           "\\<help-mode-map>>Use "
            (if (display-mouse-p) "\\[help-follow-mouse] or ")
            "\\[help-follow] on a face name to customize it\n"
            "or on its sample text for a description of the face.\n\n")))