Commit 5bebb622 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mail-bury): Check that frame-parameters is defined.

parent e5e8bb4a
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment