diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-10-24 03:18:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-10-24 03:18:18 +0000 |
| commit | 4133ab490815babb0d9639b1036326659e3f2e5c (patch) | |
| tree | 51fc216ae3750585cadd0b250313cc1382ae879d /lisp/frame.el | |
| parent | f3417b13050516fb5adf8f54355999232915c1b5 (diff) | |
| download | emacs-4133ab490815babb0d9639b1036326659e3f2e5c.tar.gz | |
(make-frame): Use before-make-frame-hook and after-make-frame-hook.
Diffstat (limited to 'lisp/frame.el')
| -rw-r--r-- | lisp/frame.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index e9d17fc1de3..f40516d4308 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -319,7 +319,11 @@ of the following forms: The documentation for the function `x-create-frame' describes additional frame parameters that Emacs recognizes for X window frames." (interactive) - (funcall frame-creation-function parameters)) + (let ((nframe)) + (run-hooks 'before-make-frame-hook) + (setq nframe (funcall frame-creation-function parameters)) + (run-hooks 'after-make-frame-hook) + nframe)) (defun filtered-frame-list (predicate) "Return a list of all live frames which satisfy PREDICATE." |