From: Dave Love <fx@gnu.org>
Date: Wed, 16 Feb 2000 13:28:33 +0000 (+0000)
Subject: 2000-02-02  Per Abrahamsen  <abraham@dina.kvl.dk>
X-Git-Tag: emacs-pretest-21.0.90~5007
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b2aeee30bf5ac1cf8e76d5b9b5a7e4fc85c7b9ba;p=emacs.git

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 b26a59b8ed9..4572cf4eb6d 100644
--- 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 277656415b7..67efcfa88ae 100644
--- 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)))