(defvar gnus-frame-list nil)
(defun gnus-window-to-buffer-helper (obj)
- (cond ((functionp obj)
- (funcall obj))
- ((not (symbolp obj))
+ (cond ((not (symbolp obj))
obj)
((boundp obj)
(symbol-value obj))
+ ((fboundp obj)
+ (funcall obj))
(t
nil)))
;; 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))
- (functionp (car split)))
+ (symbolp (car split)) (fboundp (car split)))
(setq split (eval split)))
(let* ((type (car split))
(subs (cddr split))
(while subs
(setq sub (append (pop subs) nil))
(while (and (not (assq (car sub) gnus-window-to-buffer))
- (functionp (car sub)))
+ (symbolp (car sub)) (fboundp (car sub)))
(setq sub (eval sub)))
(when sub
(push sub comp-subs)
;; 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))
- (functionp (car split)))
+ (symbolp (car split)) (fboundp (car split)))
(setq split (eval split)))
(setq type (elt split 0))