[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-win.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/03/20 15:42:58

Index: gnus-win.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/gnus-win.el,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- gnus-win.el 8 Jan 2008 20:45:12 -0000       1.24
+++ gnus-win.el 20 Mar 2008 15:42:57 -0000      1.25
@@ -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))
-               (functionp (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))
-                       (functionp (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))
-                 (functionp (car split)))
+                 (fboundp (car split)))
        (setq split (eval split)))
 
       (setq type (elt split 0))
@@ -592,5 +592,5 @@
 
 (provide 'gnus-win)
 
-;;; arch-tag: ccd5a394-2ddf-4397-b8f8-6d80d3e46e2b
+;; arch-tag: ccd5a394-2ddf-4397-b8f8-6d80d3e46e2b
 ;;; gnus-win.el ends here