procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mail-bury): Use window-dedicated-p.

Browse source
This commit is contained in:
Karl Heuer 1995-12-15 21:16:34 +00:00
parent 1540e4e9cc
commit c7608a53b0
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/mail/sendmail.el
View file

@ -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)