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

	* wid-edit.el (widget-match-inline): An atom never matches a
          list.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b26a59b8ed9947b9d05f12db1537f1fd28d21658..4572cf4eb6d7c64b7227b7af2c27772720c1fef9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-02-16  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+       * wid-edit.el (widget-match-inline): An atom never matches a
+       list.
+
 2000-02-15  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
         * textmodes/bibtex.el (bibtex-mode): Replaced manual splitting of path

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 277656415b749048066c2f81c41bb608da9c7c9e..67efcfa88aeb311cc5b18b55689298722aa0f154 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -474,7 +474,7 @@ Otherwise, just return the value."
   "In WIDGET, match the start of VALS."
   (cond ((widget-get widget :inline)
         (widget-apply widget :match-inline vals))
-       ((and vals
+       ((and (listp vals)
              (widget-apply widget :match (car vals)))
         (cons (list (car vals)) (cdr vals)))
        (t nil)))