Mercurial > hg > xemacs-beta

comparison lisp/window-xemacs.el @ 2888:469ce4fa0ade

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-08-06 09:41:58 by michaels] 2005-08-06 Mike Sperber <mike@xemacs.org> * window-xemacs.el (really-set-window-configuration): Only set the frame top and left if they've changed.
author michaels
date Sat, 06 Aug 2005 09:41:59 +0000
parents 6caa3d30f19f
children b6287dbce5f0
comparison
equal deleted inserted replaced
2887:f78c1a03968c 2888:469ce4fa0ade
289 (setq window-min-height 0) 289 (setq window-min-height 0)
290 (setq minibuffer-scroll-window nil) 290 (setq minibuffer-scroll-window nil)
291 291
292 (frame-reduce-to-one-window frame) 292 (frame-reduce-to-one-window frame)
293 (set-window-configuration-frame-size configuration) 293 (set-window-configuration-frame-size configuration)
294 (set-frame-property frame 'left (window-configuration-frame-left configuration)) 294
295 (set-frame-property frame 'top (window-configuration-frame-top configuration)) 295 ; avoid setting these if they're already up-to-date
296 ; This also avoids potential inaccuracies in these settings --Mike
297 (let ((left (window-configuration-frame-left configuration))
298 (top (window-configuration-frame-top configuration)))
299 (if (not (equal left (frame-property frame 'left)))
300 (set-frame-property frame 'left left))
301 (if (not (equal top (frame-property frame 'top)))
302 (set-frame-property frame 'top top)))
296 303
297 ;; these may have changed because of the delete 304 ;; these may have changed because of the delete
298 (let ((root-window (frame-root-window frame))) 305 (let ((root-window (frame-root-window frame)))
299 (enlarge-window-pixels 306 (enlarge-window-pixels
300 (- (window-configuration-minibuffer-pixel-height configuration) 307 (- (window-configuration-minibuffer-pixel-height configuration)