Mercurial > emacs
comparison lisp/frame.el @ 83016:1d7467694692
Fix initialization of the window-system variable.
lisp/faces.el (x-create-frame-with-faces)
(tty-create-frame-with-faces): Don't set the window-system parameter
here, it seems to be unreliable.
lisp/frame.el (make-frame): Don't forget to return the new frame (d'oh).
src/frame.c (Qwindow_system): New symbol.
(syms_of_frame): Intern it.
(Fmake_terminal_frame): Initialize window-system frame parameter.
src/frame.h (Qwindow_system): New declaration.
src/xfns.c (Fx_create_frame, x_create_tip_frame): Initialize
window-system frame parameter.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-56
author | Karoly Lorentey <lorentey@elte.hu> |
---|---|
date | Mon, 12 Jan 2004 00:45:42 +0000 |
parents | f5cadabb36dd |
children | 1465425fe2d3 |
comparison
equal
deleted
inserted
replaced
83015:ae6d0d2ecb1d | 83016:1d7467694692 |
---|---|
634 (frame-creation-function (cdr (assq w frame-creation-function-alist))) | 634 (frame-creation-function (cdr (assq w frame-creation-function-alist))) |
635 frame) | 635 frame) |
636 (unless frame-creation-function | 636 (unless frame-creation-function |
637 (error "Don't know how to create a frame on window system %s" w)) | 637 (error "Don't know how to create a frame on window system %s" w)) |
638 (run-hooks 'before-make-frame-hook) | 638 (run-hooks 'before-make-frame-hook) |
639 (funcall frame-creation-function parameters) | 639 (setq frame (funcall frame-creation-function parameters)) |
640 (run-hook-with-args 'after-make-frame-functions frame) | 640 (run-hook-with-args 'after-make-frame-functions frame) |
641 frame)) | 641 frame)) |
642 | 642 |
643 (defun filtered-frame-list (predicate) | 643 (defun filtered-frame-list (predicate) |
644 "Return a list of all live frames which satisfy PREDICATE." | 644 "Return a list of all live frames which satisfy PREDICATE." |