Parent Directory | Revision Log | Patch
revision 1.106 by abraham, Thu Feb 14 16:47:11 2002 UTC | revision 1.107 by abraham, Fri Feb 15 08:04:23 2002 UTC | |
---|---|---|
# | Line 474 new value.") | Line 474 new value.") |
474 | (if (symbolp widget) | (if (symbolp widget) |
475 | (get widget 'widget-type) | (get widget 'widget-type) |
476 | (and (consp widget) | (and (consp widget) |
477 | (get (widget-type widget) 'widget-type)))) | (symbolp (car widget)) |
478 | (get (car widget) 'widget-type)))) | |
479 | ||
480 | (defun widget-get-indirect (widget property) | (defun widget-get-indirect (widget property) |
481 | "In WIDGET, get the value of PROPERTY. | "In WIDGET, get the value of PROPERTY. |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |