procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Trivial simplifications due to track-mouse always being defined

Browse source 
* lisp/loadup.el:
* lisp/play/gametree.el: `track-mouse' is always defined since 2012-11-24.
This commit is contained in:
Glenn Morris 2014-05-18 15:57:37 -07:00
parent 5eda3a7516
commit 3c8d910743
3 changed files with 33 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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):

10
lisp/loadup.el
View file

@ -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")

49
lisp/play/gametree.el
View file

@ -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)