diff options
author | Eli Zaretskii <[email protected]> | 2000-08-02 07:38:53 +0000 |
---|---|---|
committer | Eli Zaretskii <[email protected]> | 2000-08-02 07:38:53 +0000 |
commit | f4a2b0a4bf135115d20d5d870a04ee63bfc12d29 (patch) | |
tree | e3ca92ab3b30095be7a94567579273372221b6e4 | |
parent | b685181ebbc0ffd9d24236ddad8acbe9b688c032 (diff) |
(ebrowse-tree-mode-map): Use display-mouse-p instead of window-system.
(ebrowse-member-mode-map): Ditto.
-rw-r--r-- | lisp/ChangeLog | 6 | ||||
-rw-r--r-- | lisp/progmodes/ebrowse.el | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1e4ad53a31..7e5becbf08 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2000-08-02 Eli Zaretskii <[email protected]> + + * 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 <[email protected]> * ebnf2ps.el: Update ps-print functions call. Indentation fix. Doc diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el index 02ac7037ba..f6f137e463 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)) |