diff options
| author | Eli Zaretskii | 2000-08-02 07:38:53 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2000-08-02 07:38:53 +0000 |
| commit | f4a2b0a4bf135115d20d5d870a04ee63bfc12d29 (patch) | |
| tree | e3ca92ab3b30095be7a94567579273372221b6e4 /lisp/progmodes | |
| parent | b685181ebbc0ffd9d24236ddad8acbe9b688c032 (diff) | |
| download | emacs-f4a2b0a4bf135115d20d5d870a04ee63bfc12d29.tar.gz emacs-f4a2b0a4bf135115d20d5d870a04ee63bfc12d29.zip | |
(ebrowse-tree-mode-map): Use display-mouse-p instead of window-system.
(ebrowse-member-mode-map): Ditto.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/ebrowse.el | 4 |
1 files changed, 2 insertions, 2 deletions
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." | |||
| 1061 | (setf ebrowse-tree-mode-map map) | 1061 | (setf ebrowse-tree-mode-map map) |
| 1062 | (suppress-keymap map) | 1062 | (suppress-keymap map) |
| 1063 | 1063 | ||
| 1064 | (when window-system | 1064 | (when (display-mouse-p) |
| 1065 | (define-key map [down-mouse-3] 'ebrowse-mouse-3-in-tree-buffer) | 1065 | (define-key map [down-mouse-3] 'ebrowse-mouse-3-in-tree-buffer) |
| 1066 | (define-key map [mouse-2] 'ebrowse-mouse-2-in-tree-buffer) | 1066 | (define-key map [mouse-2] 'ebrowse-mouse-2-in-tree-buffer) |
| 1067 | (define-key map [down-mouse-1] 'ebrowse-mouse-1-in-tree-buffer)) | 1067 | (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." | |||
| 2160 | (setf ebrowse-member-mode-map map) | 2160 | (setf ebrowse-member-mode-map map) |
| 2161 | (suppress-keymap map) | 2161 | (suppress-keymap map) |
| 2162 | 2162 | ||
| 2163 | (when window-system | 2163 | (when (display-mouse-p) |
| 2164 | (define-key map [down-mouse-3] 'ebrowse-member-mouse-3) | 2164 | (define-key map [down-mouse-3] 'ebrowse-member-mouse-3) |
| 2165 | (define-key map [mouse-2] 'ebrowse-member-mouse-2)) | 2165 | (define-key map [mouse-2] 'ebrowse-member-mouse-2)) |
| 2166 | 2166 | ||