# HG changeset patch # User michaels # Date 1123175599 0 # Node ID 6caa3d30f19f46e3d61158ab17ce56e1e03266ab # Parent 0c46a263e5830da6e0b61772b859e760bf879a8a [xemacs-hg @ 2005-08-04 17:13:18 by michaels] 2005-08-04 Mike Sperber * window-xemacs.el (window-configuration-equal): Compare frame top and left via `equal' rather than '=', as it can be nil. diff -r 0c46a263e583 -r 6caa3d30f19f lisp/ChangeLog --- a/lisp/ChangeLog Wed Aug 03 21:51:09 2005 +0000 +++ b/lisp/ChangeLog Thu Aug 04 17:13:19 2005 +0000 @@ -1,3 +1,8 @@ +2005-08-04 Mike Sperber + + * window-xemacs.el (window-configuration-equal): Compare frame top + and left via `equal' rather than '=', as it can be nil. + 2005-07-24 Fabrice Popineau * window-xemacs.el (really-set-window-configuration): diff -r 0c46a263e583 -r 6caa3d30f19f lisp/window-xemacs.el --- a/lisp/window-xemacs.el Wed Aug 03 21:51:09 2005 +0000 +++ b/lisp/window-xemacs.el Thu Aug 04 17:13:19 2005 +0000 @@ -136,10 +136,10 @@ (window-configuration-frame-pixel-width conf-2)) (= (window-configuration-frame-pixel-height conf-1) (window-configuration-frame-pixel-height conf-2)) - (= (window-configuration-frame-top conf-1) - (window-configuration-frame-top conf-2)) - (= (window-configuration-frame-left conf-1) - (window-configuration-frame-left conf-2)) + (equal (window-configuration-frame-top conf-1) + (window-configuration-frame-top conf-2)) + (equal (window-configuration-frame-left conf-1) + (window-configuration-frame-left conf-2)) (eq (window-configuration-current-buffer conf-1) (window-configuration-current-buffer conf-2)) (saved-window-equal (window-configuration-saved-root-window conf-1) @@ -218,8 +218,8 @@ (make-window-configuration :frame frame -:frame-top (frame-property frame 'top) -:frame-left (frame-property frame 'left) + :frame-top (frame-property frame 'top) + :frame-left (frame-property frame 'left) :frame-pixel-width (frame-pixel-width frame) :frame-pixel-height (frame-pixel-height frame) :current-buffer (current-buffer)