From f4a2b0a4bf135115d20d5d870a04ee63bfc12d29 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Wed, 2 Aug 2000 07:38:53 +0000 Subject: [PATCH] (ebrowse-tree-mode-map): Use display-mouse-p instead of window-system. (ebrowse-member-mode-map): Ditto. --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/ebrowse.el | 4 ++-- 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 + + * 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 * 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)) -- 2.39.2