Mercurial > emacs
comparison lisp/mail/sendmail.el @ 55115:af2c1ea381f4
(mail-bury): Don't delete the frame where the
mail was being composed if the terminal cannot display more than
one frame; instead, switch to previous frame.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 24 Apr 2004 16:34:56 +0000 |
| parents | 1395db493830 |
| children | aac0a33f5772 4c90ffeb71c5 |
comparison
equal
deleted
inserted
replaced
| 55114:c58efa90d5a6 | 55115:af2c1ea381f4 |
|---|---|
| 712 (let ((newbuf (other-buffer (current-buffer)))) | 712 (let ((newbuf (other-buffer (current-buffer)))) |
| 713 (bury-buffer (current-buffer)) | 713 (bury-buffer (current-buffer)) |
| 714 (if (and (or (window-dedicated-p (frame-selected-window)) | 714 (if (and (or (window-dedicated-p (frame-selected-window)) |
| 715 (cdr (assq 'mail-dedicated-frame (frame-parameters)))) | 715 (cdr (assq 'mail-dedicated-frame (frame-parameters)))) |
| 716 (not (null (delq (selected-frame) (visible-frame-list))))) | 716 (not (null (delq (selected-frame) (visible-frame-list))))) |
| 717 (delete-frame (selected-frame)) | 717 (progn |
| 718 (if (display-multi-frame-p) | |
| 719 (delete-frame (selected-frame)) | |
| 720 ;; The previous frame is where normally they have the | |
| 721 ;; RMAIL buffer displayed. | |
| 722 (other-frame -1))) | |
| 718 (let (rmail-flag summary-buffer) | 723 (let (rmail-flag summary-buffer) |
| 719 (and (not arg) | 724 (and (not arg) |
| 720 (not (one-window-p)) | 725 (not (one-window-p)) |
| 721 (save-excursion | 726 (save-excursion |
| 722 (set-buffer (window-buffer (next-window (selected-window) 'not))) | 727 (set-buffer (window-buffer (next-window (selected-window) 'not))) |