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

Fixes: debbugs:8939

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 872b494583741170b246745e2614d0e42eb506ce..ee8c301dbcd3b2f9abbfff69ca79695aa2d07e6d 100644 (file)
--- 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 3fb8bc80931c89af1a3796f2c982732651c07c2d..c29d8c9bfd888e3409e3dfcbfe5024cceb62c534 100644 (file)
--- 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")))