Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
ab6198b2
Commit
ab6198b2
authored
Oct 10, 2007
by
Stefan Monnier
Browse files
(frame-inherited-parameters): New var.
(make-frame): Use it.
parent
01ff458e
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
14 additions
and
9 deletions
+14
-9
etc/NEWS
etc/NEWS
+2
-0
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/frame.el
lisp/frame.el
+9
-9
No files found.
etc/NEWS
View file @
ab6198b2
...
...
@@ -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
...
...
lisp/ChangeLog
View file @
ab6198b2
2007-10-10 Stefan Monnier <monnier@iro.umontreal.ca>
* 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.
...
...
lisp/frame.el
View file @
ab6198b2
...
...
@@ -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
)
frame
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment