Mercurial > hg > xemacs-beta
comparison lisp/frame.el @ 3547:dd935ef485d2
[xemacs-hg @ 2006-08-06 22:14:08 by aidan]
gnuclient bug on Ben's part.
| author | aidan |
|---|---|
| date | Sun, 06 Aug 2006 22:14:10 +0000 |
| parents | fd1acd2f457a |
| children | e3cad3fd1be4 |
comparison
equal
deleted
inserted
replaced
| 3546:3231eba81466 | 3547:dd935ef485d2 |
|---|---|
| 1546 ;; (t nil) | 1546 ;; (t nil) |
| 1547 )) | 1547 )) |
| 1548 (setq iconification-data (cdr iconification-data)))) | 1548 (setq iconification-data (cdr iconification-data)))) |
| 1549 | 1549 |
| 1550 (defun suspend-or-iconify-emacs () | 1550 (defun suspend-or-iconify-emacs () |
| 1551 "Call iconify-emacs if using a window system, otherwise suspend Emacs." | 1551 "Call iconify-emacs if using a window system, otherwise suspend. |
| 1552 | |
| 1553 `suspend' here can mean different things; if the current TTY console was | |
| 1554 created by gnuclient, that console is suspended, and the related devices and | |
| 1555 frames are removed from the display. Otherwise the Emacs process as a whole | |
| 1556 is suspended--that is, the traditional Unix suspend takes place. " | |
| 1552 (interactive) | 1557 (interactive) |
| 1553 (cond ((device-on-window-system-p) | 1558 (cond ((device-on-window-system-p) |
| 1554 (iconify-emacs)) | 1559 (iconify-emacs)) |
| 1555 ((and (eq (device-type) 'tty) | 1560 ((and (eq (device-type) 'tty) |
| 1556 (declare-fboundp (console-tty-controlling-process | 1561 (declare-fboundp (console-tty-controlling-process |
| 1562 ;; This is quite a mouthful, but it should be descriptive, as it's | 1567 ;; This is quite a mouthful, but it should be descriptive, as it's |
| 1563 ;; bound to C-z. FSF takes the easy way out by binding C-z to | 1568 ;; bound to C-z. FSF takes the easy way out by binding C-z to |
| 1564 ;; different things depending on window-system. We can't do the same, | 1569 ;; different things depending on window-system. We can't do the same, |
| 1565 ;; because we allow simultaneous X and TTY consoles. | 1570 ;; because we allow simultaneous X and TTY consoles. |
| 1566 (defun suspend-emacs-or-iconify-frame () | 1571 (defun suspend-emacs-or-iconify-frame () |
| 1567 "Iconify the selected frame if using a window system, otherwise suspend Emacs." | 1572 "Iconify the selected frame if using a window system, otherwise suspend. |
| 1573 | |
| 1574 `suspend' here can mean different things; if the current TTY console was | |
| 1575 created by gnuclient, the console is suspended, and the related devices and | |
| 1576 frames are removed from the display. Otherwise the Emacs process as a whole | |
| 1577 is suspended--that is, the traditional Unix suspend takes place. " | |
| 1568 (interactive) | 1578 (interactive) |
| 1569 (cond ((device-on-window-system-p) | 1579 (cond ((device-on-window-system-p) |
| 1570 (iconify-frame)) | 1580 (iconify-frame)) |
| 1571 ((and (eq (frame-type) 'tty) | 1581 ((and (eq (frame-type) 'tty) |
| 1572 (declare-fboundp (console-tty-controlling-process | 1582 (declare-fboundp (console-tty-controlling-process |