Mercurial > emacs

changeset 13738:2727d8b0758d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-bury): Use window-dedicated-p.
author Karl Heuer <kwzh@gnu.org>
date Fri, 15 Dec 1995 21:16:34 +0000
parents 3902b2781a8f
children f6fa5b68f9c7
files lisp/mail/sendmail.el
diffstat 1 files changed, 1 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Fri Dec 15 21:11:52 1995 +0000
+++ b/lisp/mail/sendmail.el	Fri Dec 15 21:16:34 1995 +0000
@@ -405,8 +405,7 @@
   "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)