Commit ec3058af authored by Dmitry Antipov's avatar Dmitry Antipov
Browse files

* frame.c (Fmodify_frame_parameters): Always check 2nd arg with

CHECK_LIST.  Rewrite the loop to avoid useless local variable.
parent 5c09de04
2013-07-30 Dmitry Antipov <dmantipov@yandex.ru>
* frame.c (Fmodify_frame_parameters): Always check 2nd arg with
CHECK_LIST. Rewrite the loop to avoid useless local variable.
2013-07-29 Dmitry Antipov <dmantipov@yandex.ru> 2013-07-29 Dmitry Antipov <dmantipov@yandex.ru>
* fns.c (toplevel): Remove comment before Fsafe_length because * fns.c (toplevel): Remove comment before Fsafe_length because
......
...@@ -2253,7 +2253,9 @@ use is not recommended. Explicitly check for a frame-parameter instead. */) ...@@ -2253,7 +2253,9 @@ use is not recommended. Explicitly check for a frame-parameter instead. */)
(Lisp_Object frame, Lisp_Object alist) (Lisp_Object frame, Lisp_Object alist)
{ {
struct frame *f = decode_live_frame (frame); struct frame *f = decode_live_frame (frame);
register Lisp_Object tail, prop, val; register Lisp_Object prop, val;
CHECK_LIST (alist);
/* I think this should be done with a hook. */ /* I think this should be done with a hook. */
#ifdef HAVE_WINDOW_SYSTEM #ifdef HAVE_WINDOW_SYSTEM
...@@ -2278,12 +2280,11 @@ use is not recommended. Explicitly check for a frame-parameter instead. */) ...@@ -2278,12 +2280,11 @@ use is not recommended. Explicitly check for a frame-parameter instead. */)
/* Extract parm names and values into those vectors. */ /* Extract parm names and values into those vectors. */
i = 0; for (i = 0; CONSP (alist); alist = XCDR (alist))
for (tail = alist; CONSP (tail); tail = XCDR (tail))
{ {
Lisp_Object elt; Lisp_Object elt;
elt = XCAR (tail); elt = XCAR (alist);
parms[i] = Fcar (elt); parms[i] = Fcar (elt);
values[i] = Fcdr (elt); values[i] = Fcdr (elt);
i++; i++;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment