Mercurial > hg > xemacs-beta

diff src/widget.c @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents a2f645c6b9f8
children 74fd4e045ea6
line wrap: on
line diff
--- a/src/widget.c	Mon Aug 13 11:06:08 2007 +0200
+++ b/src/widget.c	Mon Aug 13 11:07:10 2007 +0200
@@ -29,7 +29,6 @@
 #include <config.h>
 #include "lisp.h"
 #include "buffer.h"
-#include "insdel.h"
 
 
 Lisp_Object Qwidget_type;
@@ -52,7 +51,7 @@
 
 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 @@
 */
        (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));