summaryrefslogtreecommitdiff
path: root/lisp/winner.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/winner.el')
-rw-r--r--lisp/winner.el11
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/winner.el b/lisp/winner.el
index d80af2654f9..6f07d5bf451 100644
--- a/lisp/winner.el
+++ b/lisp/winner.el
@@ -245,6 +245,12 @@ With arg, turn Winner mode on if and only if arg is positive."
(force-mode-line-update)))
;; Inspired by undo (simple.el)
+
+(defvar winner-pending-undo-ring nil
+ "The ring currently used by winner undo.")
+(defvar winner-undo-counter nil)
+(defvar winner-undone-data nil) ; There confs have been passed.
+
(defun winner-undo (arg)
"Switch back to an earlier window configuration saved by Winner mode.
In other words, \"undo\" changes in window configuration.
@@ -265,11 +271,6 @@ With prefix arg, undo that many levels."
(message "Winner undo (%d)" winner-undo-counter))
(setq this-command 'winner-undo))))
-(defvar winner-pending-undo-ring nil) ; The ring currently used by
- ; undo.
-(defvar winner-undo-counter nil)
-(defvar winner-undone-data nil) ; There confs have been passed.
-
(defun winner-undo-this () ; The heart of winner undo.
(if (>= winner-undo-counter (ring-length winner-pending-undo-ring))
(error "No further window configuration undo information")