Mercurial > hg > xemacs-beta
diff lisp/window-xemacs.el @ 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 | 5bf18ccb05df |
| children | 469ce4fa0ade |
line wrap: on
line diff
--- 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)