From 59c2dcf474bc74a2b9b57e5145b30228173075f1 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 9 Jul 2001 12:14:45 +0000 Subject: [PATCH] (winner-equal): Make it a defun. Don't compare Winner configurations with compare-window-configuration; they aren't window configurations. --- lisp/ChangeLog | 4 ++++ lisp/winner.el | 16 +++++++++++----- 2 files changed, 15 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d1dc492785..8a2c30391e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2001-07-09 Gerd Moellmann + * winner.el (winner-equal): Make it a defun. Don't compare Winner + configurations with compare-window-configuration; they aren't + window configurations. + * net/ange-ftp.el (ange-ftp-file-modtime): Check a 213 response from the server for the format we expect. Don't use it if it doesn't look like what the Internet draft for FTP extensions diff --git a/lisp/winner.el b/lisp/winner.el index 2e35995943..3443fcb0a9 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 ;; 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) -- 2.20.1