From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 8 Apr 1999 01:41:12 +0000 (+0000)
Subject: Reorder definitions.
X-Git-Tag: emacs-20.4~359
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e0a816503cc6229db1209aaa2b0dc8d775892c9b;p=emacs.git

Reorder definitions.
---

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")