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
45c4fdeb
Commit
45c4fdeb
authored
Mar 15, 1997
by
Simon Marshall
Browse files
defvar before- and after- make frame vars; use properly in make-frame.
parent
28ceec49
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
26 additions
and
22 deletions
+26
-22
lisp/frame.el
lisp/frame.el
+26
-22
No files found.
lisp/frame.el
View file @
45c4fdeb
...
...
@@ -425,37 +425,41 @@ The optional second argument PARAMETERS specifies additional frame parameters."
(
make-frame
)
(
select-frame
(
make-frame
))))
(
defvar
before-make-frame-hook
nil
"Functions to run before a frame is created."
)
(
defvar
after-make-frame-functions
nil
"Functions to run after a frame is created.
The functions are run with one arg, the newly created frame."
)
;; Alias, kept temporarily.
(
defalias
'new-frame
'make-frame
)
(
defun
make-frame
(
&optional
parameters
)
"Create a new frame, displaying the current buffer.
Optional argument PARAMETERS is an alist of parameters for the new
frame. Specifically, PARAMETERS is a list of pairs, each having
the form (NAME . VALUE).
(
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.
Each element of PARAMETERS should have the form (NAME . VALUE), for example:
Here are some of t
he
pa
rame
ters allowed (not a complete list):
(name . STRING) T
he
f
rame
should be named STRING.
\(name . STRING) - The frame should be named STRING.
(width . NUMBER) The frame should be NUMBER characters in width.
(height . NUMBER) The frame should be NUMBER text lines high.
\(height . NUMBER) - The frame should be NUMBER text lines high. If
this parameter is present, the width parameter must also be
given.
You cannot specify either `width' or `height', you must use neither or both.
\(width . NUMBER) - The frame should be NUMBER characters in width.
If this parameter is present, the height parameter must also
be given.
(minibuffer . t) The frame should have a minibuffer.
(minibuffer . nil) The frame should have no minibuffer.
(minibuffer . only) The frame should contain only a minibuffer.
(minibuffer . WINDOW) The frame should use WINDOW as its minibuffer window.
\(minibuffer . t) - the frame should have a minibuffer
\(minibuffer . nil) - the frame should have no minibuffer
\(minibuffer . only) - the frame should contain only a minibuffer
\(minibuffer . WINDOW) - the frame should use WINDOW as its minibuffer window."
Before the frame is created (via `frame-creation-function'), functions on the
hook `before-make-frame-hook' are run. After the frame is created, functions
on `after-make-frame-functions' are run with one arg, the newly created frame."
(
interactive
)
(
let
((
nframe
))
(
run-hooks
'before-make-frame-hook
)
(
setq
nframe
(
funcall
frame-creation-function
parameters
))
(
run-hooks
'after-make-frame-hook
)
nframe
))
(
run-hooks
'before-make-frame-hook
)
(
let
((
frame
(
funcall
frame-creation-function
parameters
)))
(
run-hook-with-args
'after-make-frame-functions
frame
)
frame
))
(
defun
filtered-frame-list
(
predicate
)
"Return a list of all live frames which satisfy PREDICATE."
...
...
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