Mercurial > emacs
comparison lisp/gnus/gnus-win.el @ 93105:29263b6aa4c7
(gnus-configure-frame, gnus-all-windows-visible-p):
Prefer fboundp to functionp so it works with macros as well.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 20 Mar 2008 15:42:57 +0000 |
| parents | 107ccd98fa12 |
| children | af178a811324 |
comparison
equal
deleted
inserted
replaced
| 93104:cd165893f5bb | 93105:29263b6aa4c7 |
|---|---|
| 315 (push 1.0 split) | 315 (push 1.0 split) |
| 316 (push 'vertical split)) | 316 (push 'vertical split)) |
| 317 ;; The SPLIT might be something that is to be evaled to | 317 ;; The SPLIT might be something that is to be evaled to |
| 318 ;; return a new SPLIT. | 318 ;; return a new SPLIT. |
| 319 (while (and (not (assq (car split) gnus-window-to-buffer)) | 319 (while (and (not (assq (car split) gnus-window-to-buffer)) |
| 320 (functionp (car split))) | 320 (fboundp (car split))) |
| 321 (setq split (eval split))) | 321 (setq split (eval split))) |
| 322 (let* ((type (car split)) | 322 (let* ((type (car split)) |
| 323 (subs (cddr split)) | 323 (subs (cddr split)) |
| 324 (len (if (eq type 'horizontal) (window-width) (window-height))) | 324 (len (if (eq type 'horizontal) (window-width) (window-height))) |
| 325 (total 0) | 325 (total 0) |
| 378 (when (> (length subs) 0) | 378 (when (> (length subs) 0) |
| 379 ;; First we have to compute the sizes of all new windows. | 379 ;; First we have to compute the sizes of all new windows. |
| 380 (while subs | 380 (while subs |
| 381 (setq sub (append (pop subs) nil)) | 381 (setq sub (append (pop subs) nil)) |
| 382 (while (and (not (assq (car sub) gnus-window-to-buffer)) | 382 (while (and (not (assq (car sub) gnus-window-to-buffer)) |
| 383 (functionp (car sub))) | 383 (fboundp (car sub))) |
| 384 (setq sub (eval sub))) | 384 (setq sub (eval sub))) |
| 385 (when sub | 385 (when sub |
| 386 (push sub comp-subs) | 386 (push sub comp-subs) |
| 387 (setq size (cadar comp-subs)) | 387 (setq size (cadar comp-subs)) |
| 388 (cond ((equal size 1.0) | 388 (cond ((equal size 1.0) |
| 518 (push 1.0 split) | 518 (push 1.0 split) |
| 519 (push 'vertical split)) | 519 (push 'vertical split)) |
| 520 ;; The SPLIT might be something that is to be evaled to | 520 ;; The SPLIT might be something that is to be evaled to |
| 521 ;; return a new SPLIT. | 521 ;; return a new SPLIT. |
| 522 (while (and (not (assq (car split) gnus-window-to-buffer)) | 522 (while (and (not (assq (car split) gnus-window-to-buffer)) |
| 523 (functionp (car split))) | 523 (fboundp (car split))) |
| 524 (setq split (eval split))) | 524 (setq split (eval split))) |
| 525 | 525 |
| 526 (setq type (elt split 0)) | 526 (setq type (elt split 0)) |
| 527 (cond | 527 (cond |
| 528 ;; Nothing here. | 528 ;; Nothing here. |
| 590 (t | 590 (t |
| 591 (get-buffer-window buffer frame)))) | 591 (get-buffer-window buffer frame)))) |
| 592 | 592 |
| 593 (provide 'gnus-win) | 593 (provide 'gnus-win) |
| 594 | 594 |
| 595 ;;; arch-tag: ccd5a394-2ddf-4397-b8f8-6d80d3e46e2b | 595 ;; arch-tag: ccd5a394-2ddf-4397-b8f8-6d80d3e46e2b |
| 596 ;;; gnus-win.el ends here | 596 ;;; gnus-win.el ends here |