projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(byte_table_same_value_p): Use `internal_equal' instead of `EQ'.
[chise/xemacs-chise.git-]
/
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 <config.h>
#include "lisp.h"
#include "buffer.h"
-#include "insdel.h"
Lisp_Object Qwidget_type;
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.
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, value))
{
@@
-68,12
+67,11
@@
later with `widget-put'.
*/
(widget, property))
{
*/
(widget, property))
{
- Lisp_Object tmp, value;
+ Lisp_Object value = Qnil;
- value = Qnil;
while (1)
{
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));
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);
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));
}
RETURN_UNGCPRO (Fapply (3, newargs));
}