Mercurial > emacs
comparison lisp/frame.el @ 4875:78a52ca82a71
(make-frame): Use before-make-frame-hook and after-make-frame-hook.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 24 Oct 1993 03:18:18 +0000 |
parents | 8878c40bc7bd |
children | bc4636cdaf01 |
comparison
equal
deleted
inserted
replaced
4874:20154e6389eb | 4875:78a52ca82a71 |
---|---|
317 \(minibuffer . WINDOW) - the frame should use WINDOW as its minibuffer window. | 317 \(minibuffer . WINDOW) - the frame should use WINDOW as its minibuffer window. |
318 | 318 |
319 The documentation for the function `x-create-frame' describes | 319 The documentation for the function `x-create-frame' describes |
320 additional frame parameters that Emacs recognizes for X window frames." | 320 additional frame parameters that Emacs recognizes for X window frames." |
321 (interactive) | 321 (interactive) |
322 (funcall frame-creation-function parameters)) | 322 (let ((nframe)) |
323 (run-hooks 'before-make-frame-hook) | |
324 (setq nframe (funcall frame-creation-function parameters)) | |
325 (run-hooks 'after-make-frame-hook) | |
326 nframe)) | |
323 | 327 |
324 (defun filtered-frame-list (predicate) | 328 (defun filtered-frame-list (predicate) |
325 "Return a list of all live frames which satisfy PREDICATE." | 329 "Return a list of all live frames which satisfy PREDICATE." |
326 (let ((frames (frame-list)) | 330 (let ((frames (frame-list)) |
327 good-frames) | 331 good-frames) |