520 |
;;;; Creation of additional frames, and other frame miscellanea |
;;;; Creation of additional frames, and other frame miscellanea |
521 |
|
|
522 |
(defun modify-all-frames-parameters (alist) |
(defun modify-all-frames-parameters (alist) |
523 |
"Modify all current and future frames parameters according to ALIST. |
"Modify all current and future frames' parameters according to ALIST. |
524 |
This changes `default-frame-alist' and possibly `initial-frame-alist'. |
This changes `default-frame-alist' and possibly `initial-frame-alist'. |
525 |
See help of `modify-frame-parameters' for more information." |
See help of `modify-frame-parameters' for more information." |
526 |
(let (element) ;; temp |
(let (element) ;; temp |
612 |
|
|
613 |
Before the frame is created (via `frame-creation-function'), functions on the |
Before the frame is created (via `frame-creation-function'), functions on the |
614 |
hook `before-make-frame-hook' are run. After the frame is created, functions |
hook `before-make-frame-hook' are run. After the frame is created, functions |
615 |
on `after-make-frame-functions' are run with one arg, the newly created frame." |
on `after-make-frame-functions' are run with one arg, the newly created frame. |
616 |
|
|
617 |
|
This function itself does not make the new frame the selected frame. |
618 |
|
The previously selected frame remains selected. However, the |
619 |
|
window system may select the new frame for its own reasons, for |
620 |
|
instance if the frame appears under the mouse pointer and your |
621 |
|
setup is for focus to follow the pointer." |
622 |
(interactive) |
(interactive) |
623 |
(run-hooks 'before-make-frame-hook) |
(run-hooks 'before-make-frame-hook) |
624 |
(let ((frame (funcall frame-creation-function parameters))) |
(let ((frame (funcall frame-creation-function parameters))) |
795 |
"Restore the frames to the state described by CONFIGURATION. |
"Restore the frames to the state described by CONFIGURATION. |
796 |
Each frame listed in CONFIGURATION has its position, size, window |
Each frame listed in CONFIGURATION has its position, size, window |
797 |
configuration, and other parameters set as specified in CONFIGURATION. |
configuration, and other parameters set as specified in CONFIGURATION. |
798 |
|
However, this function does not restore deleted frames. |
799 |
|
|
800 |
Ordinarily, this function deletes all existing frames not |
Ordinarily, this function deletes all existing frames not |
801 |
listed in CONFIGURATION. But if optional second argument NODELETE |
listed in CONFIGURATION. But if optional second argument NODELETE |
802 |
is given and non-nil, the unwanted frames are iconified instead." |
is given and non-nil, the unwanted frames are iconified instead." |
987 |
((eq frame-type 'pc) |
((eq frame-type 'pc) |
988 |
(msdos-mouse-p)) |
(msdos-mouse-p)) |
989 |
((eq system-type 'windows-nt) |
((eq system-type 'windows-nt) |
990 |
(> w32-num-mouse-buttons 0)) |
(with-no-warnings |
991 |
|
(> w32-num-mouse-buttons 0))) |
992 |
((memq frame-type '(x mac)) |
((memq frame-type '(x mac)) |
993 |
t) ;; We assume X and Mac *always* have a pointing device |
t) ;; We assume X and Mac *always* have a pointing device |
994 |
(t |
(t |
1041 |
((eq frame-type 'pc) |
((eq frame-type 'pc) |
1042 |
;; MS-DOG frames support selections when Emacs runs inside |
;; MS-DOG frames support selections when Emacs runs inside |
1043 |
;; the Windows' DOS Box. |
;; the Windows' DOS Box. |
1044 |
(not (null dos-windows-version))) |
(with-no-warnings |
1045 |
|
(not (null dos-windows-version)))) |
1046 |
((memq frame-type '(x w32 mac)) |
((memq frame-type '(x w32 mac)) |
1047 |
t) ;; FIXME? |
t) ;; FIXME? |
1048 |
(t |
(t |