diff options
Diffstat (limited to 'lisp/winner.el')
| -rw-r--r-- | lisp/winner.el | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/lisp/winner.el b/lisp/winner.el index 2e359959434..3443fcb0a9f 100644 --- a/lisp/winner.el +++ b/lisp/winner.el @@ -1,6 +1,6 @@ ;;; winner.el --- Restore old window configurations -;; Copyright (C) 1997, 1998 Free Software Foundation. Inc. +;; Copyright (C) 1997, 1998, 2001 Free Software Foundation. Inc. ;; Author: Ivar Rummelhoff <ivarru@math.uio.no> ;; Created: 27 Feb 1997 @@ -145,6 +145,16 @@ use either \\[customize] or the function `winner-mode'." ;; Frames affected by the previous command. (defvar winner-last-frames nil) + +(defun winner-equal (a b) + "Check two Winner configurations A and B for equality. +Winner configurations are of the form (CONFIG BUFFERS), +where CONFIG is a window configuration and BUFFERS is a list of +buffers." + (and (compare-window-configurations (car a) (car b)) + (equal (cdr a) (cdr b)))) + + ;; Save the current window configuration, if it has changed. ;; Then return frame, else return nil. (defun winner-insert-if-new (frame) @@ -427,10 +437,6 @@ In other words, \"undo\" changes in window configuration." ;;; To be evaluated when the package is loaded: -(if (fboundp 'compare-window-configurations) - (defalias 'winner-equal 'compare-window-configurations) - (defalias 'winner-equal 'equal)) - (unless winner-mode-map (setq winner-mode-map (make-sparse-keymap)) (define-key winner-mode-map [(control x) left] 'winner-undo) |