Mercurial > hg > xemacs-beta
changeset 2885:6caa3d30f19f
[xemacs-hg @ 2005-08-04 17:13:18 by michaels]
2005-08-04 Mike Sperber <mike@xemacs.org>
* window-xemacs.el (window-configuration-equal): Compare frame top
and left via `equal' rather than '=', as it can be nil.
| author | michaels |
|---|---|
| date | Thu, 04 Aug 2005 17:13:19 +0000 |
| parents | 0c46a263e583 |
| children | 59d024ab59e3 |
| files | lisp/ChangeLog lisp/window-xemacs.el |
| diffstat | 2 files changed, 11 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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 <mike@xemacs.org> + + * 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 <Fabrice.Popineau@supelec.fr> * window-xemacs.el (really-set-window-configuration):
--- 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)