-\f(eval-and-compile
- (cond
- ((eq (aref (emacs-version) 0) ?X)
- (defalias 'winner-edges 'window-pixel-edges)
- (defsubst winner-window-list ()
- (remq (minibuffer-window)
- (window-list nil 0))))
- (t (defalias 'winner-edges 'window-edges)
- (defsubst winner-window-list ()
- (window-list nil 0)))) )
+(defalias 'winner-edges
+ (if (featurep 'xemacs) 'window-pixel-edges 'window-edges))
+(defalias 'winner-window-list
+ (if (featurep 'xemacs)
+ (lambda () (delq (minibuffer-window) (window-list nil 0)))
+ (lambda () (window-list nil 0))))