Mercurial > emacs

changeset 43299:683707b691b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2002-02-15 Per Abrahamsen <abraham@dina.kvl.dk> * wid-edit.el (widgetp): Made it more robuts.
author Per Abrahamsen <abraham@dina.kvl.dk>
date Fri, 15 Feb 2002 08:04:23 +0000
parents cc345a1119f4
children 893c39e49ae7
files lisp/ChangeLog lisp/wid-edit.el
diffstat 2 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Feb 14 20:43:34 2002 +0000
+++ b/lisp/ChangeLog	Fri Feb 15 08:04:23 2002 +0000
@@ -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.
--- a/lisp/wid-edit.el	Thu Feb 14 20:43:34 2002 +0000
+++ b/lisp/wid-edit.el	Fri Feb 15 08:04:23 2002 +0000
@@ -474,7 +474,8 @@
   (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.