update.

[chise/xemacs-chise.git.1] / src / widget.c

diff --git a/src/widget.c b/src/widget.c
index 129d07d..2b80241 100644 (file)
--- a/src/widget.c
+++ b/src/widget.c
@@ -29,7 +29,6 @@ Boston, MA 02111-1307, USA.  */
 #include <config.h>
 #include "lisp.h"
 #include "buffer.h"
-#include "insdel.h"
 
 
 Lisp_Object Qwidget_type;
@@ -52,7 +51,7 @@ Like `plist-get', but returns the tail of PLIST whose car is PROP.
 
 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))
 {
@@ -68,12 +67,11 @@ later with `widget-put'.
 */
        (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));
@@ -103,7 +101,7 @@ ARGS are passed as extra arguments to the function.
   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));
 }