X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fwidget.c;h=2b8024100d569cdfe45bdba0378e2d6914dfea8d;hb=d9dcc2ac955edacac4ec0ba5e3e6f84329c0ace9;hp=129d07dfa3368ed4c04552952de40acd9c9e4521;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git.1

diff --git a/src/widget.c b/src/widget.c
index 129d07d..2b80241 100644
--- 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));
 }