Mercurial > emacs
comparison lisp/mail/sendmail.el @ 13738:2727d8b0758d
(mail-bury): Use window-dedicated-p.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 15 Dec 1995 21:16:34 +0000 |
| parents | 00bd8662272d |
| children | 88384034a5b4 |
comparison
equal
deleted
inserted
replaced
| 13737:3902b2781a8f | 13738:2727d8b0758d |
|---|---|
| 403 | 403 |
| 404 (defun mail-bury (arg) | 404 (defun mail-bury (arg) |
| 405 "Bury this mail buffer." | 405 "Bury this mail buffer." |
| 406 (let ((newbuf (other-buffer (current-buffer)))) | 406 (let ((newbuf (other-buffer (current-buffer)))) |
| 407 (bury-buffer (current-buffer)) | 407 (bury-buffer (current-buffer)) |
| 408 (if (and (fboundp 'frame-parameters) | 408 (if (and (window-dedicated-p (frame-selected-window)) |
| 409 (cdr (assq 'dedicated (frame-parameters))) | |
| 410 (not (null (delq (selected-frame) (visible-frame-list))))) | 409 (not (null (delq (selected-frame) (visible-frame-list))))) |
| 411 (delete-frame (selected-frame)) | 410 (delete-frame (selected-frame)) |
| 412 (let (rmail-flag summary-buffer) | 411 (let (rmail-flag summary-buffer) |
| 413 (and (not arg) | 412 (and (not arg) |
| 414 (not (one-window-p)) | 413 (not (one-window-p)) |