Mercurial > hg > xemacs-beta
comparison lisp/frame.el @ 444:576fb035e263 r21-2-37
Import from CVS: tag r21-2-37
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:36:19 +0200 |
| parents | abe6d1db359e |
| children | 0784d089fdc9 |
comparison
equal
deleted
inserted
replaced
| 443:a8296e22da4e | 444:576fb035e263 |
|---|---|
| 774 ;; (t nil) | 774 ;; (t nil) |
| 775 )) | 775 )) |
| 776 (setq iconification-data (cdr iconification-data)))) | 776 (setq iconification-data (cdr iconification-data)))) |
| 777 | 777 |
| 778 (defun suspend-or-iconify-emacs () | 778 (defun suspend-or-iconify-emacs () |
| 779 "Call iconify-emacs if using a window system, otherwise call suspend-emacs." | 779 "Call iconify-emacs if using a window system, otherwise suspend Emacs." |
| 780 (interactive) | 780 (interactive) |
| 781 (cond ((device-on-window-system-p) | 781 (cond ((device-on-window-system-p) |
| 782 (iconify-emacs)) | 782 (iconify-emacs)) |
| 783 ((and (eq (device-type) 'tty) | 783 ((and (eq (device-type) 'tty) |
| 784 (console-tty-controlling-process (selected-console))) | 784 (console-tty-controlling-process (selected-console))) |
| 1053 If the frame-name symbol has a 'frame-defaults property, then that is | 1053 If the frame-name symbol has a 'frame-defaults property, then that is |
| 1054 prepended to the `default-frame-plist' when creating a frame for the | 1054 prepended to the `default-frame-plist' when creating a frame for the |
| 1055 first time. | 1055 first time. |
| 1056 | 1056 |
| 1057 This function may be used as the value of `pre-display-buffer-function', | 1057 This function may be used as the value of `pre-display-buffer-function', |
| 1058 to cause the display-buffer function and its callers to exhibit the above | 1058 to cause the `display-buffer' function and its callers to exhibit the |
| 1059 behavior." | 1059 above behavior." |
| 1060 (let ((frame (get-frame-for-buffer-noselect | 1060 (let ((frame (get-frame-for-buffer-noselect |
| 1061 buffer not-this-window-p on-frame))) | 1061 buffer not-this-window-p on-frame))) |
| 1062 (if (not (eq frame (selected-frame))) | 1062 (if (not (eq frame (selected-frame))) |
| 1063 frame | 1063 frame |
| 1064 (select-frame frame) | 1064 (select-frame frame) |
| 1102 "*Proportion of frame to use for temp windows." | 1102 "*Proportion of frame to use for temp windows." |
| 1103 :type 'number | 1103 :type 'number |
| 1104 :group 'frames) | 1104 :group 'frames) |
| 1105 | 1105 |
| 1106 (defun show-temp-buffer-in-current-frame (buffer) | 1106 (defun show-temp-buffer-in-current-frame (buffer) |
| 1107 "For use as the value of temp-buffer-show-function: | 1107 "For use as the value of `temp-buffer-show-function': |
| 1108 always displays the buffer in the selected frame, regardless of the behavior | 1108 always displays the buffer in the selected frame, regardless of the behavior |
| 1109 that would otherwise be introduced by the `pre-display-buffer-function', which | 1109 that would otherwise be introduced by the `pre-display-buffer-function', which |
| 1110 is normally set to `get-frame-for-buffer' (which see)." | 1110 is normally set to `get-frame-for-buffer' (which see)." |
| 1111 (let ((pre-display-buffer-function nil)) ; turn it off, whatever it is | 1111 (let ((pre-display-buffer-function nil)) ; turn it off, whatever it is |
| 1112 (let ((window (display-buffer buffer))) | 1112 (let ((window (display-buffer buffer))) |