[Emacs-diffs] trunk r113494: * lisp/winner.el (winner-hook-installed-p): Remove.

[Stefan Monnier]

------------------------------------------------------------
revno: 113494
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2013-07-22 18:51:29 -0400
message:
  * lisp/winner.el (winner-hook-installed-p): Remove.
  (winner-mode): Simplify accordingly.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/winner.el                 winner.el-20091113204419-o5vbwnq5f7feedwu-1104

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-07-22 17:24:31 +0000
+++ b/lisp/ChangeLog    2013-07-22 22:51:29 +0000
@@ -1,5 +1,8 @@
 2013-07-22  Stefan Monnier  <address@hidden>
 
+       * winner.el (winner-hook-installed-p): Remove.
+       (winner-mode): Simplify accordingly.
+
        * subr.el (add-to-list): Fix compiler-macro when `append' is
        not constant.  Don't use `cl-member' for the base case.
 

=== modified file 'lisp/winner.el'
--- a/lisp/winner.el    2013-04-18 13:15:08 +0000
+++ b/lisp/winner.el    2013-07-22 22:51:29 +0000
@@ -342,31 +342,18 @@
     map)
   "Keymap for Winner mode.")
 
-;; Check if `window-configuration-change-hook' is working.
-(defun winner-hook-installed-p ()
-  (save-window-excursion
-    (let ((winner-var nil)
-         (window-configuration-change-hook
-          '((lambda () (setq winner-var t)))))
-      (split-window)
-      winner-var)))
-
 
 ;;;###autoload
 (define-minor-mode winner-mode nil :global t ; let d-m-m make the doc
   (if winner-mode
       (progn
-        (if (winner-hook-installed-p)
-            (progn
-              (add-hook 'window-configuration-change-hook 'winner-change-fun)
-              (add-hook 'post-command-hook 'winner-save-old-configurations))
-          (add-hook 'post-command-hook 'winner-save-conditionally))
+        (add-hook 'window-configuration-change-hook 'winner-change-fun)
+        (add-hook 'post-command-hook 'winner-save-old-configurations)
         (add-hook 'minibuffer-setup-hook 'winner-save-unconditionally)
         (setq winner-modified-list (frame-list))
         (winner-save-old-configurations))
     (remove-hook 'window-configuration-change-hook 'winner-change-fun)
     (remove-hook 'post-command-hook 'winner-save-old-configurations)
-    (remove-hook 'post-command-hook 'winner-save-conditionally)
     (remove-hook 'minibuffer-setup-hook 'winner-save-unconditionally)))
 
 ;; Inspired by undo (simple.el)