From 02d5f78923cd82d739ab8e9c3e3f4933c743d695 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 15 Dec 1995 21:16:34 +0000 Subject: (mail-bury): Use window-dedicated-p. --- lisp/mail/sendmail.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'lisp') diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index f7b1d82e61a..809bbfb4b98 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -405,8 +405,7 @@ Prefix arg means don't delete this window." "Bury this mail buffer." (let ((newbuf (other-buffer (current-buffer)))) (bury-buffer (current-buffer)) - (if (and (fboundp 'frame-parameters) - (cdr (assq 'dedicated (frame-parameters))) + (if (and (window-dedicated-p (frame-selected-window)) (not (null (delq (selected-frame) (visible-frame-list))))) (delete-frame (selected-frame)) (let (rmail-flag summary-buffer) -- cgit v1.2.1