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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1e4ad53a31598bed6b1bf8cbb4b51582434c93ec..7e5becbf08d721af31042fd00d5876bed7273fa5 100644 (file)
--- 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 02ac7037ba031c964e85883ef72180828c004c5d..f6f137e4631bdaa10bfe82734f369a820494545e 100644 (file)
--- 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))