Commit 3c8d9107 authored by Glenn Morris's avatar Glenn Morris
Browse files

Trivial simplifications due to track-mouse always being defined

* lisp/loadup.el:
* lisp/play/gametree.el: `track-mouse' is always defined since 2012-11-24.
parent 5eda3a75
2014-05-18 Glenn Morris <rgm@gnu.org>
* loadup.el:
* play/gametree.el: `track-mouse' is always defined since 2012-11-24.
2014-05-14 Sam Steingold <sds@gnu.org>
* progmodes/python.el (python-shell-get-or-create-process):
......
......@@ -198,12 +198,10 @@
(load "font-lock")
(load "jit-lock")
(if (fboundp 'track-mouse)
(progn
(load "mouse")
(and (boundp 'x-toolkit-scroll-bars)
(load "scroll-bar"))
(load "select")))
(load "mouse")
(if (boundp 'x-toolkit-scroll-bars)
(load "scroll-bar"))
(load "select")
(load "emacs-lisp/timer")
(load "isearch")
(load "rfn-eshadow")
......
......@@ -590,31 +590,30 @@ shogi, etc.) players, it is a slightly modified version of Outline mode.
(add-hook 'write-contents-hooks 'gametree-save-and-hack-layout))
;;;; Goodies for mousing users
(and (fboundp 'track-mouse)
(defun gametree-mouse-break-line-here (event)
(interactive "e")
(mouse-set-point event)
(gametree-break-line-here))
(defun gametree-mouse-show-children-and-entry (event)
(interactive "e")
(mouse-set-point event)
(gametree-show-children-and-entry))
(defun gametree-mouse-show-subtree (event)
(interactive "e")
(mouse-set-point event)
(show-subtree))
(defun gametree-mouse-hide-subtree (event)
(interactive "e")
(mouse-set-point event)
(hide-subtree))
(define-key gametree-mode-map [M-down-mouse-2 M-mouse-2]
'gametree-mouse-break-line-here)
(define-key gametree-mode-map [S-down-mouse-1 S-mouse-1]
'gametree-mouse-show-children-and-entry)
(define-key gametree-mode-map [S-down-mouse-2 S-mouse-2]
'gametree-mouse-show-subtree)
(define-key gametree-mode-map [S-down-mouse-3 S-mouse-3]
'gametree-mouse-hide-subtree))
(defun gametree-mouse-break-line-here (event)
(interactive "e")
(mouse-set-point event)
(gametree-break-line-here))
(defun gametree-mouse-show-children-and-entry (event)
(interactive "e")
(mouse-set-point event)
(gametree-show-children-and-entry))
(defun gametree-mouse-show-subtree (event)
(interactive "e")
(mouse-set-point event)
(show-subtree))
(defun gametree-mouse-hide-subtree (event)
(interactive "e")
(mouse-set-point event)
(hide-subtree))
(define-key gametree-mode-map [M-down-mouse-2 M-mouse-2]
'gametree-mouse-break-line-here)
(define-key gametree-mode-map [S-down-mouse-1 S-mouse-1]
'gametree-mouse-show-children-and-entry)
(define-key gametree-mode-map [S-down-mouse-2 S-mouse-2]
'gametree-mouse-show-subtree)
(define-key gametree-mode-map [S-down-mouse-3 S-mouse-3]
'gametree-mouse-hide-subtree)
(provide 'gametree)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment