Mercurial > emacs
changeset 93105:29263b6aa4c7
(gnus-configure-frame, gnus-all-windows-visible-p):
Prefer fboundp to functionp so it works with macros as well.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 20 Mar 2008 15:42:57 +0000 |
| parents | cd165893f5bb |
| children | e931cb410f95 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-win.el |
| diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Thu Mar 20 15:41:44 2008 +0000 +++ b/lisp/gnus/ChangeLog Thu Mar 20 15:42:57 2008 +0000 @@ -1,3 +1,8 @@ +2008-03-20 Stefan Monnier <monnier@iro.umontreal.ca> + + * 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 <monnier@iro.umontreal.ca> * nntp.el: Use with-current-buffer.
--- a/lisp/gnus/gnus-win.el Thu Mar 20 15:41:44 2008 +0000 +++ b/lisp/gnus/gnus-win.el Thu Mar 20 15:42:57 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)) - (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