[Emacs-diffs] trunk r117122: Trivial simplifications due to track-mouse always being defined

[Glenn Morris]

------------------------------------------------------------
revno: 117122
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2014-05-18 15:57:37 -0700
message:
  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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/loadup.el                 loadup.el-20091113204419-o5vbwnq5f7feedwu-49
  lisp/play/gametree.el          
gametree.el-20091113204419-o5vbwnq5f7feedwu-1259

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-05-14 18:17:05 +0000
+++ b/lisp/ChangeLog    2014-05-18 22:57:37 +0000
@@ -1,3 +1,8 @@
+2014-05-18  Glenn Morris  <address@hidden>
+
+       * loadup.el:
+       * play/gametree.el: `track-mouse' is always defined since 2012-11-24.
+
 2014-05-14  Sam Steingold  <address@hidden>
 
        * progmodes/python.el (python-shell-get-or-create-process):

=== modified file 'lisp/loadup.el'
--- a/lisp/loadup.el    2014-02-10 01:34:22 +0000
+++ b/lisp/loadup.el    2014-05-18 22:57:37 +0000
@@ -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")

=== modified file 'lisp/play/gametree.el'
--- a/lisp/play/gametree.el     2014-02-03 00:40:49 +0000
+++ b/lisp/play/gametree.el     2014-05-18 22:57:37 +0000
@@ -590,31 +590,30 @@
   (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)