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

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