Mercurial > emacs

diff lisp/mail/sendmail.el @ 4194:053660379077

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-bury): Check that frame-parameters is defined.
author Richard M. Stallman <rms@gnu.org>
date Tue, 20 Jul 1993 21:42:52 +0000
parents 7b855e27223f
children 1088a9aa4fd0
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Tue Jul 20 21:15:26 1993 +0000
+++ b/lisp/mail/sendmail.el	Tue Jul 20 21:42:52 1993 +0000
@@ -298,7 +298,8 @@
   "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)