summaryrefslogtreecommitdiff
path: root/lisp/frame.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/frame.el')
-rw-r--r--lisp/frame.el6
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."