Mercurial > emacs
comparison lisp/wid-edit.el @ 27711:bc335df29000
2000-02-02 Per Abrahamsen <abraham@dina.kvl.dk>
* wid-edit.el (widget-match-inline): An atom never matches a
list.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 16 Feb 2000 13:25:52 +0000 |
| parents | f894902025ff |
| children | 6bc5854eef8b |
comparison
equal
deleted
inserted
replaced
| 27710:8127d5664998 | 27711:bc335df29000 |
|---|---|
| 472 | 472 |
| 473 (defun widget-match-inline (widget vals) | 473 (defun widget-match-inline (widget vals) |
| 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))) |
| 481 | 481 |
| 482 (defun widget-apply-action (widget &optional event) | 482 (defun widget-apply-action (widget &optional event) |