(make-frame): Use before-make-frame-hook and after-make-frame-hook.

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."