Mercurial > emacs

changeset 24590:d607db83cf72

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Reorder definitions.
author Richard M. Stallman <rms@gnu.org>
date Thu, 08 Apr 1999 01:41:12 +0000
parents 316c00e8bc62
children 3b18314f27d6
files lisp/winner.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/winner.el	Thu Apr 08 01:16:01 1999 +0000
+++ b/lisp/winner.el	Thu Apr 08 01:41:12 1999 +0000
@@ -245,6 +245,12 @@
     (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 @@
 	(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")