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

diff --git a/lisp/frame.el b/lisp/frame.el
index e9d17fc1de31e8d812b29c9a41e98a2c38d0e647..f40516d4308c54affbc4af33fb1324d4ad52e9e1 100644 (file)
--- 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."