From: Drew Adams <drew.adams@oracle.com>
Date: Mon, 27 Jun 2011 00:29:55 +0000 (+0200)
Subject: lisp/faces.el (list-faces-display): Add help-mode-map to output.
X-Git-Tag: emacs-pretest-24.0.90~104^2~152^2~378
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7c823eab820935bf7d3c87c7f08b6a18dbbedbb4;p=emacs.git

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

Fixes: debbugs:8939
---

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")))