Mercurial > emacs
comparison src/frame.c @ 7134:3ad5c55d40b8
(Fframe_parameters) [!MULTI_FRAME]: Replace with stub.
(Fframe_parameters, Fmodify_frame_parameters) [!MULTI_FRAME]:
Remove extra docstring.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 27 Apr 1994 19:18:40 +0000 |
parents | 098b87bde5a7 |
children | 06a13bf36a8c |
comparison
equal
deleted
inserted
replaced
7133:9367067ee736 | 7134:3ad5c55d40b8 |
---|---|
1933 { | 1933 { |
1934 return Fcons (Qnil, Fcons (Qnil, Qnil)); | 1934 return Fcons (Qnil, Fcons (Qnil, Qnil)); |
1935 } | 1935 } |
1936 | 1936 |
1937 DEFUN ("frame-parameters", Fframe_parameters, Sframe_parameters, 0, 1, 0, | 1937 DEFUN ("frame-parameters", Fframe_parameters, Sframe_parameters, 0, 1, 0, |
1938 "Return the parameters-alist of frame FRAME.\n\ | 1938 /* Don't confuse make-docfile by having two doc strings for this function. |
1939 It is a list of elements of the form (PARM . VALUE), where PARM is a symbol.\n\ | 1939 make-docfile does not pay attention to #if, for good reason! */ |
1940 The meaningful PARMs depend on the kind of frame.\n\ | 1940 0) |
1941 If FRAME is omitted, return information on the currently selected frame.") | |
1942 (frame) | 1941 (frame) |
1943 Lisp_Object frame; | 1942 Lisp_Object frame; |
1944 { | 1943 { |
1945 Lisp_Object alist; | 1944 return Qnil; |
1946 struct frame *f; | |
1947 | |
1948 if (EQ (frame, Qnil)) | |
1949 f = selected_frame; | |
1950 else | |
1951 { | |
1952 CHECK_FRAME (frame, 0); | |
1953 f = XFRAME (frame); | |
1954 } | |
1955 | |
1956 if (f->display.nothing == 0) | |
1957 return Qnil; | |
1958 | |
1959 alist = Fcopy_alist (f->param_alist); | |
1960 store_in_alist (&alist, Qname, f->name); | |
1961 store_in_alist (&alist, Qheight, make_number (f->height)); | |
1962 store_in_alist (&alist, Qwidth, make_number (f->width)); | |
1963 store_in_alist (&alist, Qmodeline, (f->wants_modeline ? Qt : Qnil)); | |
1964 store_in_alist (&alist, Qminibuffer, | |
1965 (! FRAME_HAS_MINIBUF_P (f) ? Qnil | |
1966 : (FRAME_MINIBUF_ONLY_P (f) ? Qonly | |
1967 : FRAME_MINIBUF_WINDOW (f)))); | |
1968 store_in_alist (&alist, Qunsplittable, (f->no_split ? Qt : Qnil)); | |
1969 store_in_alist (&alist, Qmenu_bar_lines, (FRAME_MENU_BAR_LINES (f))); | |
1970 | |
1971 return alist; | |
1972 } | 1945 } |
1973 | 1946 |
1974 DEFUN ("modify-frame-parameters", Fmodify_frame_parameters, | 1947 DEFUN ("modify-frame-parameters", Fmodify_frame_parameters, |
1975 Smodify_frame_parameters, 2, 2, 0, | 1948 Smodify_frame_parameters, 2, 2, 0, |
1976 "Modify the parameters of frame FRAME according to ALIST.\n\ | 1949 /* Don't confuse make-docfile by having two doc strings for this function. |
1977 ALIST is an alist of parameters to change and their new values.\n\ | 1950 make-docfile does not pay attention to #if, for good reason! */ |
1978 Each element of ALIST has the form (PARM . VALUE), where PARM is a symbol.\n\ | 1951 0) |
1979 The meaningful PARMs depend on the kind of frame; undefined PARMs are ignored.") | |
1980 (frame, alist) | 1952 (frame, alist) |
1981 Lisp_Object frame, alist; | 1953 Lisp_Object frame, alist; |
1982 { | 1954 { |
1983 return Qnil; | 1955 return Qnil; |
1984 } | 1956 } |