# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 751432698 0
# Node ID 78a52ca82a7125193fee5e9dfb7ccc354c665894
# Parent  20154e6389ebed8a68227ad6e3f005eaba2e4a23
(make-frame): Use before-make-frame-hook and after-make-frame-hook.

diff -r 20154e6389eb -r 78a52ca82a71 lisp/frame.el
--- a/lisp/frame.el	Fri Oct 22 17:12:54 1993 +0000
+++ b/lisp/frame.el	Sun Oct 24 03:18:18 1993 +0000
@@ -319,7 +319,11 @@
 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."