From 5bebb622b1a782919e941109ef51094f32984215 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 20 Jul 1993 21:42:52 +0000 Subject: [PATCH] (mail-bury): Check that frame-parameters is defined. --- lisp/mail/sendmail.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 604272285c3..5eb37c9c32d 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -298,7 +298,8 @@ Prefix arg means don't delete this window." "Bury this mail buffer." (let ((newbuf (other-buffer (current-buffer)))) (bury-buffer (current-buffer)) - (if (and (cdr (assq 'dedicated (frame-parameters))) + (if (and (fboundp 'frame-parameters) + (cdr (assq 'dedicated (frame-parameters))) (not (null (delq (selected-frame) (visible-frame-list))))) (delete-frame (selected-frame)) (if (and (not arg) -- 2.39.5