diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/wid-edit.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b26a59b8ed9..4572cf4eb6d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2000-02-16 Per Abrahamsen <abraham@dina.kvl.dk> | ||
| 2 | |||
| 3 | * wid-edit.el (widget-match-inline): An atom never matches a | ||
| 4 | list. | ||
| 5 | |||
| 1 | 2000-02-15 Dirk Herrmann <D.Herrmann@tu-bs.de> | 6 | 2000-02-15 Dirk Herrmann <D.Herrmann@tu-bs.de> |
| 2 | 7 | ||
| 3 | * textmodes/bibtex.el (bibtex-mode): Replaced manual splitting of path | 8 | * 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." | |||
| 474 | "In WIDGET, match the start of VALS." | 474 | "In WIDGET, match the start of VALS." |
| 475 | (cond ((widget-get widget :inline) | 475 | (cond ((widget-get widget :inline) |
| 476 | (widget-apply widget :match-inline vals)) | 476 | (widget-apply widget :match-inline vals)) |
| 477 | ((and vals | 477 | ((and (listp vals) |
| 478 | (widget-apply widget :match (car vals))) | 478 | (widget-apply widget :match (car vals))) |
| 479 | (cons (list (car vals)) (cdr vals))) | 479 | (cons (list (car vals)) (cdr vals))) |
| 480 | (t nil))) | 480 | (t nil))) |