Commit ab6198b2 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(frame-inherited-parameters): New var.

(make-frame): Use it.
parent 01ff458e
......@@ -262,6 +262,8 @@ supported on other platforms, but not on Windows due to using the winsock
* Lisp Changes in Emacs 23.1
** `frame-inherited-parameters' lets new frames inherit parameters from
the selected frame.
** New keymap `input-decode-map' overrides like key-translation-map, but
applies before function-key-map. Also it is terminal-local contrary to
key-translation-map. Terminal-specific key-sequences are generally added to
2007-10-10 Stefan Monnier <>
* frame.el (frame-inherited-parameters): New var.
(make-frame): Use it.
* font-lock.el (lisp-font-lock-keywords-2): Remove let-environment.
* env.el (let-environment): Remove. Unused.
......@@ -673,6 +673,10 @@ The functions are run with one arg, the newly created frame.")
;; Alias, kept temporarily.
(define-obsolete-function-alias 'new-frame 'make-frame "22.1")
(defvar frame-inherited-parameters '(environment client)
;; FIXME: Shouldn't we add `font' here as well?
"Parameters `make-frame' copies from the `selected-frame' to the new frame.")
(defun make-frame (&optional parameters)
"Return a newly created frame displaying the current buffer.
Optional argument PARAMETERS is an alist of parameters for the new frame.
......@@ -723,15 +727,11 @@ setup is for focus to follow the pointer."
(run-hooks 'before-make-frame-hook)
(setq frame (funcall frame-creation-function (append parameters (cdr (assq w window-system-default-frame-alist)))))
(normal-erase-is-backspace-setup-frame frame)
;; Inherit the 'environment and 'client parameters.
(let ((env (frame-parameter oldframe 'environment))
(client (frame-parameter oldframe 'client)))
(if (not (framep env))
(setq env oldframe))
(if (and env (not (assq 'environment parameters)))
(set-frame-parameter frame 'environment env))
(if (and client (not (assq 'client parameters)))
(set-frame-parameter frame 'client client)))
;; Inherit the original frame's parameters.
(dolist (param frame-inherited-parameters)
(unless (assq param parameters) ;Overridden by explicit parameters.
(let ((val (frame-parameter oldframe param)))
(when val (set-frame-parameter frame param val)))))
(run-hook-with-args 'after-make-frame-functions frame)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment