Mercurial > emacs
comparison lisp/gnus/gnus-win.el @ 93617:af178a811324
(gnus-configure-frame, gnus-all-windows-visible-p):
Fix last change in case the element is not even a symbol.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 03 Apr 2008 21:30:51 +0000 |
| parents | 29263b6aa4c7 |
| children | f42ef85caf91 |
comparison
equal
deleted
inserted
replaced
| 93616:71f10341b865 | 93617:af178a811324 |
|---|---|
| 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 (fboundp (car split))) | 320 (symbolp (car split)) (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 (fboundp (car sub))) | 383 (symbolp (car sub)) (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 (fboundp (car split))) | 523 (symbolp (car split)) (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. |