From b813166acef36bb66a264544313cebf1de30e9c5 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 20 Mar 2008 15:42:57 +0000 Subject: [PATCH] (gnus-configure-frame, gnus-all-windows-visible-p): Prefer fboundp to functionp so it works with macros as well. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-win.el | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 8c2d025493a..7d86ddc0f7c 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2008-03-20 Stefan Monnier + + * gnus-win.el (gnus-configure-frame, gnus-all-windows-visible-p): + Prefer fboundp to functionp so it works with macros as well. + 2008-03-12 Stefan Monnier * nntp.el: Use with-current-buffer. diff --git a/lisp/gnus/gnus-win.el b/lisp/gnus/gnus-win.el index 13a37e515ec..2dfed1e981f 100644 --- a/lisp/gnus/gnus-win.el +++ b/lisp/gnus/gnus-win.el @@ -317,7 +317,7 @@ See the Gnus manual for an explanation of the syntax used.") ;; 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 @@ See the Gnus manual for an explanation of the syntax used.") (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 @@ should have point." ;; 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 @@ should have point." (provide 'gnus-win) -;;; arch-tag: ccd5a394-2ddf-4397-b8f8-6d80d3e46e2b +;; arch-tag: ccd5a394-2ddf-4397-b8f8-6d80d3e46e2b ;;; gnus-win.el ends here -- 2.39.5