diff options
author | Gerd Moellmann <gerd@gnu.org> | 2001-07-09 12:14:12 +0000 |
---|---|---|
committer | Gerd Moellmann <gerd@gnu.org> | 2001-07-09 12:14:12 +0000 |
commit | 02a8b5848d9d00b11806fdeac45e6410b1a1330c (patch) | |
tree | 44171586e52593b856e79805d9efdf976c3b45af /lisp/winner.el | |
parent | d55938625cb6b52519c2ac63ed6eeb789b16e0c5 (diff) | |
download | emacs-02a8b5848d9d00b11806fdeac45e6410b1a1330c.tar.gz |
(winner-equal): Make it a defun. Don't compare Winner
configurations with compare-window-configuration; they aren't
window configurations.
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) |