diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-07-22 18:51:29 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-07-22 18:51:29 -0400 |
commit | 9b2607e821843c26fab866b2ebec7befef696c6b (patch) | |
tree | 3b161e2ba19ff990ee4f466dc26b377b8eb29ef0 /lisp/winner.el | |
parent | c43a861814c2cbe65c67d0bfa5523b50eba1419f (diff) | |
download | emacs-9b2607e821843c26fab866b2ebec7befef696c6b.tar.gz |
* lisp/winner.el (winner-hook-installed-p): Remove.
(winner-mode): Simplify accordingly.
Diffstat (limited to 'lisp/winner.el')
-rw-r--r-- | lisp/winner.el | 17 |
1 files changed, 2 insertions, 15 deletions
diff --git a/lisp/winner.el b/lisp/winner.el index f521ba0521b..e7e7d0614b4 100644 --- a/lisp/winner.el +++ b/lisp/winner.el @@ -342,31 +342,18 @@ You may want to include buffer names such as *Help*, *Apropos*, 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) |