From 4133ab490815babb0d9639b1036326659e3f2e5c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 24 Oct 1993 03:18:18 +0000 Subject: [PATCH] (make-frame): Use before-make-frame-hook and after-make-frame-hook. --- lisp/frame.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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." -- 2.39.5