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

2 files changed, 4 insertions, 1 deletions

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)