aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1997-10-16 23:25:57 +0000
committerKarl Heuer1997-10-16 23:25:57 +0000
commitac1f790ac66dbdbb23375a7f44761d9d026fe3ff (patch)
tree0e2a8755723ba50057ed57c46b605c022557af14
parent5b531322941e4683531cb679b8ae40cd43674308 (diff)
downloademacs-ac1f790ac66dbdbb23375a7f44761d9d026fe3ff.tar.gz
emacs-ac1f790ac66dbdbb23375a7f44761d9d026fe3ff.zip
(winner-pending-undo-ring): Defvar before first use.
(winner-undo-counter): Likewise.
-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."
129 (force-mode-line-update))) 129 (force-mode-line-update)))
130 130
131;; Inspired by undo (simple.el) 131;; Inspired by undo (simple.el)
132
133(defvar winner-pending-undo-ring nil)
134
135(defvar winner-undo-counter nil)
136
132(defun winner-undo (arg) 137(defun winner-undo (arg)
133 "Switch back to an earlier window configuration saved by Winner mode. 138 "Switch back to an earlier window configuration saved by Winner mode.
134In other words, \"undo\" changes in window configuration." 139In other words, \"undo\" changes in window configuration."
@@ -147,10 +152,6 @@ In other words, \"undo\" changes in window configuration."
147 (message "Winner undo (%d)!" winner-undo-counter) 152 (message "Winner undo (%d)!" winner-undo-counter)
148 (setq this-command 'winner-undo)))) 153 (setq this-command 'winner-undo))))
149 154
150(defvar winner-pending-undo-ring nil)
151
152(defvar winner-undo-counter nil)
153
154(defun winner-undo-more (count) 155(defun winner-undo-more (count)
155 "Undo N window configuration changes beyond what was already undone. 156 "Undo N window configuration changes beyond what was already undone.
156Call `winner-undo-start' to get ready to undo recent changes, 157Call `winner-undo-start' to get ready to undo recent changes,