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) |