#include <config.h>
#include "lisp.h"
#include "buffer.h"
-#include "insdel.h"
Lisp_Object Qwidget_type;
DEFUN ("widget-put", Fwidget_put, 3, 3, 0, /*
In WIDGET set PROPERTY to VALUE.
-The value can later be retrived with `widget-get'.
+The value can later be retrieved with `widget-get'.
*/
(widget, property, value))
{
*/
(widget, property))
{
- Lisp_Object tmp, value;
+ Lisp_Object value = Qnil;
- value = Qnil;
while (1)
{
- tmp = Fwidget_plist_member (Fcdr (widget), property);
+ Lisp_Object tmp = Fwidget_plist_member (Fcdr (widget), property);
if (!NILP (tmp))
{
value = Fcar (Fcdr (tmp));
newargs[0] = Fwidget_get (args[0], args[1]);
newargs[1] = args[0];
newargs[2] = Flist (nargs - 2, args + 2);
- GCPRO1 ((newargs[2]));
+ GCPRO1 (newargs[2]);
RETURN_UNGCPRO (Fapply (3, newargs));
}