mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-07 06:50:23 -08:00
* lisp/frame.el: Don't require 'frameset.el' (bug#51883).
(clone-frame): Use frame-internal-parameters. (undelete-frame--handle-delete-frame): Instead of using frameset-save, save frame-parameters except frame-internal-parameters and 'display' on non-graphic display. Also save window-state from window-state-get. (undelete-frame): Instead of using frameset-restore, set default-frame-alist for make-frame (like in clone-frame), and restore window-state with window-state-put. * lisp/frameset.el (frameset-session-filter-alist): Append parameters from frame-internal-parameters with the filter :never. Remove :name that is now in frame-internal-parameters. (frameset-persistent-filter-alist): Remove outer-window-id, parent-id, window-id that are now in frame-internal-parameters, included here via frameset-session-filter-alist. * src/frame.c (frame-internal-parameters): New variable.
This commit is contained in:
parent
46611aa468
commit
1b83e58adb
3 changed files with 36 additions and 33 deletions
|
|
@ -436,10 +436,11 @@ Properties can be set with
|
|||
|
||||
;;;###autoload
|
||||
(defvar frameset-session-filter-alist
|
||||
'((name . :never)
|
||||
(left . frameset-filter-iconified)
|
||||
(minibuffer . frameset-filter-minibuffer)
|
||||
(top . frameset-filter-iconified))
|
||||
(append
|
||||
'((left . frameset-filter-iconified)
|
||||
(minibuffer . frameset-filter-minibuffer)
|
||||
(top . frameset-filter-iconified))
|
||||
(mapcar (lambda (p) (cons p :never)) frame-internal-parameters))
|
||||
"Minimum set of parameters to filter for live (on-session) framesets.
|
||||
DO NOT MODIFY. See `frameset-filter-alist' for a full description.")
|
||||
|
||||
|
|
@ -468,14 +469,11 @@ DO NOT MODIFY. See `frameset-filter-alist' for a full description.")
|
|||
(GUI:height . frameset-filter-unshelve-param)
|
||||
(GUI:width . frameset-filter-unshelve-param)
|
||||
(height . frameset-filter-shelve-param)
|
||||
(outer-window-id . :never)
|
||||
(parent-frame . :never)
|
||||
(parent-id . :never)
|
||||
(mouse-wheel-frame . :never)
|
||||
(tty . frameset-filter-tty-to-GUI)
|
||||
(tty-type . frameset-filter-tty-to-GUI)
|
||||
(width . frameset-filter-shelve-param)
|
||||
(window-id . :never)
|
||||
(window-system . :never))
|
||||
frameset-session-filter-alist)
|
||||
"Parameters to filter for persistent framesets.
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue