Mercurial > emacs
diff lisp/faces.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 | b44978264e1d |
line wrap: on
line diff
--- a/lisp/faces.el Sun Jan 11 23:12:24 2004 +0000 +++ b/lisp/faces.el Mon Jan 12 00:45:42 2004 +0000 @@ -1658,7 +1658,7 @@ (setq parameters (x-handle-named-frame-geometry parameters)) (let ((visibility-spec (assq 'visibility parameters)) (frame-list (frame-list)) - (frame (x-create-frame `((window-system . x) (visibility . nil) . ,parameters))) + (frame (x-create-frame `((visibility . nil) . ,parameters))) success) (unwind-protect (progn @@ -1744,7 +1744,7 @@ `default-frame-alist'. If either PARAMETERS or `default-frame-alist' contains a `reverse' parameter, handle that. Value is the new frame created." - (let ((frame (make-terminal-frame `((window-system . nil) . ,parameters))) + (let ((frame (make-terminal-frame parameters)) success) (unwind-protect (progn