diff options
author | Eli Zaretskii <[email protected]> | 2000-02-17 14:01:20 +0000 |
---|---|---|
committer | Eli Zaretskii <[email protected]> | 2000-02-17 14:01:20 +0000 |
commit | 53c80cf65ea01af58e3f71654847d55dfa6f5416 (patch) | |
tree | 5edd2ab4bd35930aa86714f609f7994fb3a15727 /lisp | |
parent | 2503c8b1aee911d3a53a7950e39eab34c05192fb (diff) |
(list-faces-display): Use display-mouse-p, not window-system.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 3 | ||||
-rw-r--r-- | lisp/faces.el | 2 |
2 files changed, 4 insertions, 1 deletions
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 <[email protected]> + * 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) |