aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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,