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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6c28abb998a3c41a51a36be2b28ff9aa04f16a69..275f89e5aa13d54a082bc28ebdfe334bb31eeb1b 100644 (file)
--- 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 8d2a47a262a8b9ed287c5ed158adf48ae8848beb..dadfe68e62358ce3659274b07b3e6b06f7a5d78c 100644 (file)
--- 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)