Mercurial > emacs
diff 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 |
line wrap: on
line diff
--- a/lisp/gnus/gnus-win.el Thu Apr 03 21:18:49 2008 +0000 +++ b/lisp/gnus/gnus-win.el Thu Apr 03 21:30:51 2008 +0000 @@ -317,7 +317,7 @@ ;; The SPLIT might be something that is to be evaled to ;; return a new SPLIT. (while (and (not (assq (car split) gnus-window-to-buffer)) - (fboundp (car split))) + (symbolp (car split)) (fboundp (car split))) (setq split (eval split))) (let* ((type (car split)) (subs (cddr split)) @@ -380,7 +380,7 @@ (while subs (setq sub (append (pop subs) nil)) (while (and (not (assq (car sub) gnus-window-to-buffer)) - (fboundp (car sub))) + (symbolp (car sub)) (fboundp (car sub))) (setq sub (eval sub))) (when sub (push sub comp-subs) @@ -520,7 +520,7 @@ ;; The SPLIT might be something that is to be evaled to ;; return a new SPLIT. (while (and (not (assq (car split) gnus-window-to-buffer)) - (fboundp (car split))) + (symbolp (car split)) (fboundp (car split))) (setq split (eval split))) (setq type (elt split 0))