Mercurial > emacs
comparison lisp/net/eudc.el @ 47497:036e57c15cdc
* xscheme.el (scheme-interaction-mode): Doc fix.
* net/eudc.el (eudc-plist-get): Doc fix.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Mon, 16 Sep 2002 02:49:22 +0000 |
| parents | cd8db5bd4819 |
| children | 65c4cd99d916 |
comparison
equal
deleted
inserted
replaced
| 47496:4f825dbb49f7 | 47497:036e57c15cdc |
|---|---|
| 132 | 132 |
| 133 ;; Emacs' plist-get lacks third parameter | 133 ;; Emacs' plist-get lacks third parameter |
| 134 (defun eudc-plist-get (plist prop &optional default) | 134 (defun eudc-plist-get (plist prop &optional default) |
| 135 "Extract a value from a property list. | 135 "Extract a value from a property list. |
| 136 PLIST is a property list, which is a list of the form | 136 PLIST is a property list, which is a list of the form |
| 137 (PROP1 VALUE1 PROP2 VALUE2...). This function returns the value | 137 \(PROP1 VALUE1 PROP2 VALUE2...). This function returns the value |
| 138 corresponding to the given PROP, or DEFAULT if PROP is not | 138 corresponding to the given PROP, or DEFAULT if PROP is not |
| 139 one of the properties on the list." | 139 one of the properties on the list." |
| 140 (if (eudc-plist-member plist prop) | 140 (if (eudc-plist-member plist prop) |
| 141 (plist-get plist prop) | 141 (plist-get plist prop) |
| 142 default)) | 142 default)) |