Mercurial > emacs
comparison lisp/window.el @ 86337:161416156d88
(balance-windows): Remove unused var `counter'.
(bw-balance-sub): Remove unused var `lastchild'.
(split-window-vertically): Remove unused var `switch'.
(recenter-top-bottom): Remove unused vars `bottom', `current', `total'.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 22 Nov 2007 18:08:06 +0000 |
| parents | c679b91efdfa |
| children | 44a6a92e5396 |
comparison
equal
deleted
inserted
replaced
| 86336:5dde93581c8f | 86337:161416156d88 |
|---|---|
| 213 This counts the windows in the selected frame and (if the minibuffer is | 213 This counts the windows in the selected frame and (if the minibuffer is |
| 214 to be counted) its minibuffer frame (if that's not the same frame). | 214 to be counted) its minibuffer frame (if that's not the same frame). |
| 215 The optional arg MINIBUF non-nil means count the minibuffer | 215 The optional arg MINIBUF non-nil means count the minibuffer |
| 216 even if it is inactive." | 216 even if it is inactive." |
| 217 (let ((count 0)) | 217 (let ((count 0)) |
| 218 (walk-windows (function (lambda (w) | 218 (walk-windows (lambda (w) (setq count (+ count 1))) |
| 219 (setq count (+ count 1)))) | |
| 220 minibuf) | 219 minibuf) |
| 221 count)) | 220 count)) |
| 222 | 221 |
| 223 (defun window-safely-shrinkable-p (&optional window) | 222 (defun window-safely-shrinkable-p (&optional window) |
| 224 "Non-nil if the WINDOW can be shrunk without shrinking other windows. | 223 "Non-nil if the WINDOW can be shrunk without shrinking other windows. |
| 377 (wt (bw-get-tree window-or-frame)) | 376 (wt (bw-get-tree window-or-frame)) |
| 378 (w) | 377 (w) |
| 379 (h) | 378 (h) |
| 380 (tried-sizes) | 379 (tried-sizes) |
| 381 (last-sizes) | 380 (last-sizes) |
| 382 (windows (window-list nil 0)) | 381 (windows (window-list nil 0))) |
| 383 (counter 0)) | |
| 384 (when wt | 382 (when wt |
| 385 (while (not (member last-sizes tried-sizes)) | 383 (while (not (member last-sizes tried-sizes)) |
| 386 (when last-sizes (setq tried-sizes (cons last-sizes tried-sizes))) | 384 (when last-sizes (setq tried-sizes (cons last-sizes tried-sizes))) |
| 387 (setq last-sizes (mapcar (lambda (w) | 385 (setq last-sizes (mapcar (lambda (w) |
| 388 (window-edges w)) | 386 (window-edges w)) |
| 413 (if (windowp wt) | 411 (if (windowp wt) |
| 414 (progn | 412 (progn |
| 415 (when w | 413 (when w |
| 416 (let ((dw (- w (- (bw-r wt) (bw-l wt))))) | 414 (let ((dw (- w (- (bw-r wt) (bw-l wt))))) |
| 417 (when (/= 0 dw) | 415 (when (/= 0 dw) |
| 418 (bw-adjust-window wt dw t)))) | 416 (bw-adjust-window wt dw t)))) |
| 419 (when h | 417 (when h |
| 420 (let ((dh (- h (- (bw-b wt) (bw-t wt))))) | 418 (let ((dh (- h (- (bw-b wt) (bw-t wt))))) |
| 421 (when (/= 0 dh) | 419 (when (/= 0 dh) |
| 422 (bw-adjust-window wt dh nil))))) | 420 (bw-adjust-window wt dh nil))))) |
| 423 (let* ((childs (cdr (assq 'childs wt))) | 421 (let* ((childs (cdr (assq 'childs wt))) |
| 424 (lastchild (car (last childs))) | |
| 425 (cw (when w (/ w (if (bw-eqdir 'hor wt) (length childs) 1)))) | 422 (cw (when w (/ w (if (bw-eqdir 'hor wt) (length childs) 1)))) |
| 426 (ch (when h (/ h (if (bw-eqdir 'ver wt) (length childs) 1))))) | 423 (ch (when h (/ h (if (bw-eqdir 'ver wt) (length childs) 1))))) |
| 427 (dolist (c childs) | 424 (dolist (c childs) |
| 428 (bw-balance-sub c cw ch))))) | 425 (bw-balance-sub c cw ch))))) |
| 429 | 426 |
| 430 ;;; A different solution to balance-windows | 427 ;;; A different solution to balance-windows |
| 431 | 428 |
| 432 (defun window-fixed-size-p (&optional window direction) | 429 (defun window-fixed-size-p (&optional window direction) |
| 433 "Non-nil if WINDOW cannot be resized in DIRECTION. | 430 "Non-nil if WINDOW cannot be resized in DIRECTION. |
| 559 (interactive "P") | 556 (interactive "P") |
| 560 (let ((old-w (selected-window)) | 557 (let ((old-w (selected-window)) |
| 561 (old-point (point)) | 558 (old-point (point)) |
| 562 (size (and arg (prefix-numeric-value arg))) | 559 (size (and arg (prefix-numeric-value arg))) |
| 563 (window-full-p nil) | 560 (window-full-p nil) |
| 564 new-w bottom switch moved) | 561 new-w bottom moved) |
| 565 (and size (< size 0) (setq size (+ (window-height) size))) | 562 (and size (< size 0) (setq size (+ (window-height) size))) |
| 566 (setq new-w (split-window nil size)) | 563 (setq new-w (split-window nil size)) |
| 567 (or split-window-keep-point | 564 (or split-window-keep-point |
| 568 (progn | 565 (progn |
| 569 (save-excursion | 566 (save-excursion |
| 902 (interactive "P") | 899 (interactive "P") |
| 903 (cond | 900 (cond |
| 904 (arg (recenter arg)) ; Always respect ARG. | 901 (arg (recenter arg)) ; Always respect ARG. |
| 905 ((not (eq this-command last-command)) | 902 ((not (eq this-command last-command)) |
| 906 ;; First time - save mode and recenter. | 903 ;; First time - save mode and recenter. |
| 907 (let ((bottom (1+ (count-lines 1 (window-end)))) | 904 (setq recenter-last-op 'middle) |
| 908 (current (1+ (count-lines 1 (point)))) | 905 (recenter)) |
| 909 (total (window-height))) | |
| 910 (setq recenter-last-op 'middle) | |
| 911 (recenter))) | |
| 912 (t ;; repeat: loop through various options. | 906 (t ;; repeat: loop through various options. |
| 913 (setq recenter-last-op | 907 (setq recenter-last-op |
| 914 (ecase recenter-last-op | 908 (ecase recenter-last-op |
| 915 (middle (recenter scroll-conservatively) 'top) | 909 (middle (recenter scroll-conservatively) 'top) |
| 916 (top (recenter (1- (- scroll-conservatively))) 'bottom) | 910 (top (recenter (1- (- scroll-conservatively))) 'bottom) |