mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Reorder definitions.

Browse source
This commit is contained in:
Richard M. Stallman 1999-04-08 01:41:12 +00:00
parent 26e18ed97f
commit e0a816503c
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/winner.el
View file

@ -245,6 +245,12 @@ 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
"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 @@ With prefix arg, undo that many levels."
(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")