From bbc562cc09a769cf5386b6553b793558c59f977b Mon Sep 17 00:00:00 2001 From: Per Abrahamsen Date: Fri, 15 Feb 2002 08:04:23 +0000 Subject: [PATCH] 2002-02-15 Per Abrahamsen * wid-edit.el (widgetp): Made it more robuts. --- lisp/ChangeLog | 4 ++++ lisp/wid-edit.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dbe89b58c67..eb5477ae077 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2002-02-15 Per Abrahamsen + + * wid-edit.el (widgetp): Made it more robuts. + 2002-02-14 Per Abrahamsen * facemenu.el (describe-text-done): New function. diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 626f4c7c713..ba4ce1131a3 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -474,7 +474,8 @@ new value.") (if (symbolp widget) (get widget 'widget-type) (and (consp widget) - (get (widget-type widget) 'widget-type)))) + (symbolp (car widget)) + (get (car widget) 'widget-type)))) (defun widget-get-indirect (widget property) "In WIDGET, get the value of PROPERTY. -- 2.39.5