Lines Matching defs:w*w
141 '(gnus-configure-windows ,gnus-current-window-configuration t)
233 (start-window (posn-window start-posn))
234 (bounds (gnus-window-edges start-window))
236 (bottom (if (window-minibuffer-p start-window)
252 ;; (but not outside the window where the drag started).
265 ;; Are we moving within the original window?
266 ((and (eq (posn-window end) start-window)
292 (mouse-scroll-subr start-window (- mouse-row top)))
294 (mouse-scroll-subr start-window
388 (defcustom gnus-tree-minimize-window t
389 "If non-nil, minimize the tree buffer window.
508 (when (setq win (get-buffer-window buf))
509 (select-window win)
530 (select-window (get-buffer-window buf)))))
555 "Center point in the tree window."
556 (let ((selected (selected-window))
557 (tree-window (gnus-get-buffer-window gnus-tree-buffer t)))
558 (when tree-window
559 (select-window tree-window)
562 (let* ((top (cond ((< (window-height) 4) 0)
563 ((< (window-height) 7) 1)
565 (height (1- (window-height)))
569 ;; Set the window start to either `bottom', which is the biggest
572 (set-window-start
573 tree-window (min bottom (save-excursion
575 (select-window selected))))
586 (when (and gnus-tree-minimize-window
587 (not (one-window-p)))
590 (walk-windows (lambda (window) (incf windows)))
593 (* window-min-height (1- windows))
595 (let* ((window-min-height 2)
597 (min (max (1- window-min-height) height))
598 (tot (if (numberp gnus-tree-minimize-window)
599 (min gnus-tree-minimize-window min)
601 (win (get-buffer-window (current-buffer)))
602 (wh (and win (1- (window-height win)))))
606 (let ((selected (selected-window)))
607 (when (ignore-errors (select-window win))
608 (enlarge-window (- tot wh))
609 (select-window selected))))))))
703 (let ((selected (selected-window)))
704 (when (gnus-get-buffer-window (set-buffer gnus-tree-buffer) t)
705 (select-window (gnus-get-buffer-window (set-buffer gnus-tree-buffer) t))
707 (select-window selected))))))
844 (when (and gnus-tree-minimize-window
868 (let ((selected (selected-window)))
869 (when (gnus-get-buffer-window (set-buffer gnus-tree-buffer) t)
870 (select-window (gnus-get-buffer-window (set-buffer gnus-tree-buffer) t))
872 (select-window selected))))
885 (set-window-point
886 (gnus-get-buffer-window (current-buffer) t) (cdr region))))))
943 ("local" . gnus-summary-news-other-window)
944 ("mail" . gnus-summary-mail-other-window)
1040 (let ((fill-column (- (window-width) 2)))
1042 (set-window-point (get-buffer-window (current-buffer))