From: Per Abrahamsen <abraham@dina.kvl.dk>
Date: Fri, 15 Feb 2002 08:04:23 +0000 (+0000)
Subject: 2002-02-15  Per Abrahamsen  <abraham@dina.kvl.dk>
X-Git-Tag: ttn-vms-21-2-B4~16677
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bbc562cc09a769cf5386b6553b793558c59f977b;p=emacs.git

2002-02-15  Per Abrahamsen  <abraham@dina.kvl.dk>

	* wid-edit.el (widgetp): Made it more robuts.
---

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  <abraham@dina.kvl.dk>
+
+	* wid-edit.el (widgetp): Made it more robuts.
+
 2002-02-14  Per Abrahamsen  <abraham@dina.kvl.dk>
 
 	* 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.