summaryrefslogtreecommitdiff
path: root/lisp/winner.el
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1997-10-16 23:25:57 +0000
committerKarl Heuer <kwzh@gnu.org>1997-10-16 23:25:57 +0000
commitac1f790ac66dbdbb23375a7f44761d9d026fe3ff (patch)
tree0e2a8755723ba50057ed57c46b605c022557af14 /lisp/winner.el
parent5b531322941e4683531cb679b8ae40cd43674308 (diff)
downloademacs-ac1f790ac66dbdbb23375a7f44761d9d026fe3ff.tar.gz
(winner-pending-undo-ring): Defvar before first use.
(winner-undo-counter): Likewise.
Diffstat (limited to 'lisp/winner.el')
-rw-r--r--lisp/winner.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/winner.el b/lisp/winner.el
index e0ef71ad713..752b3f5b4a3 100644
--- a/lisp/winner.el
+++ b/lisp/winner.el
@@ -129,6 +129,11 @@ 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)
+
+(defvar winner-undo-counter nil)
+
(defun winner-undo (arg)
"Switch back to an earlier window configuration saved by Winner mode.
In other words, \"undo\" changes in window configuration."
@@ -147,10 +152,6 @@ In other words, \"undo\" changes in window configuration."
(message "Winner undo (%d)!" winner-undo-counter)
(setq this-command 'winner-undo))))
-(defvar winner-pending-undo-ring nil)
-
-(defvar winner-undo-counter nil)
-
(defun winner-undo-more (count)
"Undo N window configuration changes beyond what was already undone.
Call `winner-undo-start' to get ready to undo recent changes,