From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 17 Feb 2000 14:01:20 +0000 (+0000)
Subject: (list-faces-display): Use display-mouse-p, not window-system.
X-Git-Tag: emacs-pretest-21.0.90~4990
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=53c80cf65ea01af58e3f71654847d55dfa6f5416;p=emacs.git

(list-faces-display): Use display-mouse-p, not window-system.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6c28abb998a..275f89e5aa1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2000-02-17  Eli Zaretskii  <eliz@is.elta.co.il>
 
+	* faces.el (list-faces-display): Use display-mouse-p instead of
+        window-system.
+
 	* menu-bar.el (global-map): Menu-bar items converted to the new
 	format (menu-item..., rearranged for better CUA compliance, and
 	their names changed for better clarity.  Help strings added.
diff --git a/lisp/faces.el b/lisp/faces.el
index 8d2a47a262a..dadfe68e623 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -971,7 +971,7 @@ The sample text is a string that comes from the variable
 	 (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)