Mercurial > emacs

comparison lisp/progmodes/ebrowse.el @ 30554:e56649429a8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ebrowse-tree-mode-map): Use display-mouse-p instead of window-system. (ebrowse-member-mode-map): Ditto.
author Eli Zaretskii <eliz@gnu.org>
date Wed, 02 Aug 2000 07:37:22 +0000
parents 03f206c5d91b
children dd613770eb0f
comparison
equal deleted inserted replaced
30553:cb0e05fafd49 30554:e56649429a8b
1059 (unless ebrowse-tree-mode-map 1059 (unless ebrowse-tree-mode-map
1060 (let ((map (make-keymap))) 1060 (let ((map (make-keymap)))
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))
1068 1068
1069 (let ((map1 (make-sparse-keymap))) 1069 (let ((map1 (make-sparse-keymap)))
2158 (unless ebrowse-member-mode-map 2158 (unless ebrowse-member-mode-map
2159 (let ((map (make-keymap))) 2159 (let ((map (make-keymap)))
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
2167 (let ((map1 (make-sparse-keymap))) 2167 (let ((map1 (make-sparse-keymap)))
2168 (suppress-keymap map1 t) 2168 (suppress-keymap map1 t)