Mercurial > emacs
comparison lisp/wid-edit.el @ 29954:94c96c958d39
(widget-member): Use the new plist-member.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 26 Jun 2000 21:56:10 +0000 |
| parents | db8d9c0d471f |
| children | e99b2e89fa59 |
comparison
equal
deleted
inserted
replaced
| 29953:dad7b11391a3 | 29954:94c96c958d39 |
|---|---|
| 422 (symbol-value value) | 422 (symbol-value value) |
| 423 value))) | 423 value))) |
| 424 | 424 |
| 425 (defun widget-member (widget property) | 425 (defun widget-member (widget property) |
| 426 "Non-nil iff there is a definition in WIDGET for PROPERTY." | 426 "Non-nil iff there is a definition in WIDGET for PROPERTY." |
| 427 (cond ((widget-plist-member (cdr widget) property) | 427 (cond ((plist-member (cdr widget) property) |
| 428 t) | 428 t) |
| 429 ((car widget) | 429 ((car widget) |
| 430 (widget-member (get (car widget) 'widget-type) property)) | 430 (widget-member (get (car widget) 'widget-type) property)) |
| 431 (t nil))) | 431 (t nil))) |
| 432 | 432 |