Reorder definitions.

diff --git a/lisp/winner.el b/lisp/winner.el
index d80af2654f9c978639c8ca78ca17634613b29c1b..6f07d5bf4510b2046a59baa20a593b8314786072 100644 (file)
--- 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)))
 
 \f;; 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")