(ebrowse-tree-mode-map): Use display-mouse-p instead of window-system.

(ebrowse-member-mode-map): Ditto.

2 files changed, 8 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1e4ad53a315..7e5becbf08d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2000-08-02  Eli Zaretskii  <eliz@is.elta.co.il>
+
+        * progmodes/ebrowse.el (ebrowse-tree-mode-map): Use
+        display-mouse-p instead of window-system.
+        (ebrowse-member-mode-map): Ditto.
+
 2000-08-01  Vinicius Jose Latorre  <vinicius@cpqd.com.br>
 
         * ebnf2ps.el: Update ps-print functions call.  Indentation fix.  Doc
diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el
index 02ac7037ba0..f6f137e4631 100644
--- a/lisp/progmodes/ebrowse.el
+++ b/lisp/progmodes/ebrowse.el
@@ -1061,7 +1061,7 @@ if for some reason a circle is in the inheritance graph."
     (setf ebrowse-tree-mode-map map)
     (suppress-keymap map)
 
-    (when window-system
+    (when (display-mouse-p)
       (define-key map [down-mouse-3] 'ebrowse-mouse-3-in-tree-buffer)
       (define-key map [mouse-2] 'ebrowse-mouse-2-in-tree-buffer)
       (define-key map [down-mouse-1] 'ebrowse-mouse-1-in-tree-buffer))
@@ -2160,7 +2160,7 @@ See 'Electric-command-loop' for a description of STATE and CONDITION."
     (setf ebrowse-member-mode-map map)
     (suppress-keymap map)
 
-  (when window-system
+  (when (display-mouse-p)
     (define-key map [down-mouse-3] 'ebrowse-member-mouse-3)
     (define-key map [mouse-2] 'ebrowse-member-mouse-2))