Mercurial > emacs
comparison lisp/cus-edit.el @ 73797:2e5ad09135ff
(hook): Fix typos in docstring.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 06 Nov 2006 22:35:27 +0000 |
| parents | 4064a5037466 |
| children | a1e596bbf76d 02cf29720f31 |
comparison
equal
deleted
inserted
replaced
| 73796:3da9d5d6d1dc | 73797:2e5ad09135ff |
|---|---|
| 3662 | 3662 |
| 3663 | 3663 |
| 3664 ;;; The `hook' Widget. | 3664 ;;; The `hook' Widget. |
| 3665 | 3665 |
| 3666 (define-widget 'hook 'list | 3666 (define-widget 'hook 'list |
| 3667 "An emacs lisp hook." | 3667 "An Emacs Lisp hook." |
| 3668 :value-to-internal (lambda (widget value) | 3668 :value-to-internal (lambda (widget value) |
| 3669 (if (and value (symbolp value)) | 3669 (if (and value (symbolp value)) |
| 3670 (list value) | 3670 (list value) |
| 3671 value)) | 3671 value)) |
| 3672 :match (lambda (widget value) | 3672 :match (lambda (widget value) |
| 4302 (now (and (not (custom-variable-p symbol)) | 4302 (now (and (not (custom-variable-p symbol)) |
| 4303 (or (boundp symbol) | 4303 (or (boundp symbol) |
| 4304 (eq (get symbol 'force-value) | 4304 (eq (get symbol 'force-value) |
| 4305 'rogue)))) | 4305 'rogue)))) |
| 4306 (comment (get symbol 'saved-variable-comment))) | 4306 (comment (get symbol 'saved-variable-comment))) |
| 4307 ;; Check REQUESTS for validity. | 4307 ;; Check REQUESTS for validity. |
| 4308 (dolist (request requests) | 4308 (dolist (request requests) |
| 4309 (when (and (symbolp request) (not (featurep request))) | 4309 (when (and (symbolp request) (not (featurep request))) |
| 4310 (message "Unknown requested feature: %s" request) | 4310 (message "Unknown requested feature: %s" request) |
| 4311 (setq requests (delq request requests)))) | 4311 (setq requests (delq request requests)))) |
| 4312 ;; Is there anything customized about this variable? | 4312 ;; Is there anything customized about this variable? |