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)) |