Mercurial > emacs
comparison lisp/cus-edit.el @ 77997:20578868cbb3
(custom-variable-type): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 11 Jun 2007 05:12:11 +0000 |
| parents | 6540b56c4b3d |
| children | 9355f9b7bbff fb627c8fac18 |
comparison
equal
deleted
inserted
replaced
| 77996:de0dc7755f94 | 77997:20578868cbb3 |
|---|---|
| 2498 :custom-standard-value 'custom-variable-standard-value) | 2498 :custom-standard-value 'custom-variable-standard-value) |
| 2499 | 2499 |
| 2500 (defun custom-variable-type (symbol) | 2500 (defun custom-variable-type (symbol) |
| 2501 "Return a widget suitable for editing the value of SYMBOL. | 2501 "Return a widget suitable for editing the value of SYMBOL. |
| 2502 If SYMBOL has a `custom-type' property, use that. | 2502 If SYMBOL has a `custom-type' property, use that. |
| 2503 Otherwise, look up symbol in `custom-guess-type-alist'." | 2503 Otherwise, try matching SYMBOL against `custom-guess-name-alist' and |
| 2504 try matching its doc string against `custom-guess-doc-alist'." | |
| 2504 (let* ((type (or (get symbol 'custom-type) | 2505 (let* ((type (or (get symbol 'custom-type) |
| 2505 (and (not (get symbol 'standard-value)) | 2506 (and (not (get symbol 'standard-value)) |
| 2506 (custom-guess-type symbol)) | 2507 (custom-guess-type symbol)) |
| 2507 'sexp)) | 2508 'sexp)) |
| 2508 (options (get symbol 'custom-options)) | 2509 (options (get symbol 'custom-options)) |