From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 24 Oct 1993 03:18:18 +0000 (+0000)
Subject: (make-frame): Use before-make-frame-hook and after-make-frame-hook.
X-Git-Tag: emacs-19.34~10976
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4133ab490815babb0d9639b1036326659e3f2e5c;p=emacs.git

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

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