diff options
| author | Karl Heuer | 1997-10-16 23:25:57 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-10-16 23:25:57 +0000 |
| commit | ac1f790ac66dbdbb23375a7f44761d9d026fe3ff (patch) | |
| tree | 0e2a8755723ba50057ed57c46b605c022557af14 | |
| parent | 5b531322941e4683531cb679b8ae40cd43674308 (diff) | |
| download | emacs-ac1f790ac66dbdbb23375a7f44761d9d026fe3ff.tar.gz emacs-ac1f790ac66dbdbb23375a7f44761d9d026fe3ff.zip | |
(winner-pending-undo-ring): Defvar before first use.
(winner-undo-counter): Likewise.
| -rw-r--r-- | lisp/winner.el | 9 |
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. |
| 134 | In other words, \"undo\" changes in window configuration." | 139 | In 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. |
| 156 | Call `winner-undo-start' to get ready to undo recent changes, | 157 | Call `winner-undo-start' to get ready to undo recent changes, |