From b2aeee30bf5ac1cf8e76d5b9b5a7e4fc85c7b9ba Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 16 Feb 2000 13:28:33 +0000 Subject: [PATCH] 2000-02-02 Per Abrahamsen * wid-edit.el (widget-match-inline): An atom never matches a list. --- lisp/ChangeLog | 5 +++++ lisp/wid-edit.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * wid-edit.el (widget-match-inline): An atom never matches a + list. + 2000-02-15 Dirk Herrmann * 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))) -- 2.39.5