Mercurial > hg > xemacs-beta
comparison 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 |
comparison
equal
deleted
inserted
replaced
2884:0c46a263e583 | 2885:6caa3d30f19f |
---|---|
134 (window-configuration-frame conf-2)) | 134 (window-configuration-frame conf-2)) |
135 (= (window-configuration-frame-pixel-width conf-1) | 135 (= (window-configuration-frame-pixel-width conf-1) |
136 (window-configuration-frame-pixel-width conf-2)) | 136 (window-configuration-frame-pixel-width conf-2)) |
137 (= (window-configuration-frame-pixel-height conf-1) | 137 (= (window-configuration-frame-pixel-height conf-1) |
138 (window-configuration-frame-pixel-height conf-2)) | 138 (window-configuration-frame-pixel-height conf-2)) |
139 (= (window-configuration-frame-top conf-1) | 139 (equal (window-configuration-frame-top conf-1) |
140 (window-configuration-frame-top conf-2)) | 140 (window-configuration-frame-top conf-2)) |
141 (= (window-configuration-frame-left conf-1) | 141 (equal (window-configuration-frame-left conf-1) |
142 (window-configuration-frame-left conf-2)) | 142 (window-configuration-frame-left conf-2)) |
143 (eq (window-configuration-current-buffer conf-1) | 143 (eq (window-configuration-current-buffer conf-1) |
144 (window-configuration-current-buffer conf-2)) | 144 (window-configuration-current-buffer conf-2)) |
145 (saved-window-equal (window-configuration-saved-root-window conf-1) | 145 (saved-window-equal (window-configuration-saved-root-window conf-1) |
146 (window-configuration-saved-root-window conf-2))))) | 146 (window-configuration-saved-root-window conf-2))))) |
147 | 147 |
216 ; 0))) | 216 ; 0))) |
217 ; ...) | 217 ; ...) |
218 | 218 |
219 (make-window-configuration | 219 (make-window-configuration |
220 :frame frame | 220 :frame frame |
221 :frame-top (frame-property frame 'top) | 221 :frame-top (frame-property frame 'top) |
222 :frame-left (frame-property frame 'left) | 222 :frame-left (frame-property frame 'left) |
223 :frame-pixel-width (frame-pixel-width frame) | 223 :frame-pixel-width (frame-pixel-width frame) |
224 :frame-pixel-height (frame-pixel-height frame) | 224 :frame-pixel-height (frame-pixel-height frame) |
225 :current-buffer (current-buffer) | 225 :current-buffer (current-buffer) |
226 :min-width window-min-width :min-height window-min-height | 226 :min-width window-min-width :min-height window-min-height |
227 :minibuffer-pixel-height (window-pixel-height (minibuffer-window frame)) | 227 :minibuffer-pixel-height (window-pixel-height (minibuffer-window frame)) |