From 53c80cf65ea01af58e3f71654847d55dfa6f5416 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 17 Feb 2000 14:01:20 +0000 Subject: (list-faces-display): Use display-mouse-p, not window-system. --- lisp/ChangeLog | 3 +++ lisp/faces.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6c28abb998..275f89e5aa 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2000-02-17 Eli Zaretskii + * 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 8d2a47a262..dadfe68e62 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) -- cgit v1.2.3