# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 950795902 0
# Node ID b4d0a1247b35e335f890b353afd1c38583c7e413
# Parent  8ba487d5d95662a32798c5ace2609e7b65e376bd
(list-faces-display): Use display-mouse-p, not window-system.

diff -r 8ba487d5d956 -r b4d0a1247b35 lisp/faces.el
--- a/lisp/faces.el	Thu Feb 17 13:15:26 2000 +0000
+++ b/lisp/faces.el	Thu Feb 17 13:58:22 2000 +0000
@@ -971,7 +971,7 @@
 	 (substitute-command-keys
 	  (concat
 	   "Use "
-	   (if window-system "\\[help-follow-mouse] or ")
+	   (if (display-mouse-p) "\\[help-follow-mouse] or ")
 	   "\\[help-follow] or on a face name to customize it\n"
 	   "or on its sample text for a decription of the face.\n\n")))
 	(setq help-xref-stack nil)