Mercurial > emacs
comparison lisp/cus-edit.el @ 68892:93b583aac002
* wid-edit.el (widget-button-click): Use :pressed-face property
for overlay face, if it exists.
* cus-edit.el (custom-manual, custom-add-see-also)
(custom-add-parent-links, custom-group-link): Add :pressed-face
property to links.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 14 Feb 2006 20:16:04 +0000 |
| parents | 5020a0c4a1aa |
| children | f484ff9069d6 |
comparison
equal
deleted
inserted
replaced
| 68891:ca6b93e0f08b | 68892:93b583aac002 |
|---|---|
| 1718 (define-widget 'custom-manual 'info-link | 1718 (define-widget 'custom-manual 'info-link |
| 1719 "Link to the manual entry for this customization option." | 1719 "Link to the manual entry for this customization option." |
| 1720 :help-echo "Read the manual entry for this option." | 1720 :help-echo "Read the manual entry for this option." |
| 1721 :button-face 'custom-link | 1721 :button-face 'custom-link |
| 1722 :mouse-face 'highlight | 1722 :mouse-face 'highlight |
| 1723 :pressed-face 'highlight | |
| 1723 :tag "Manual") | 1724 :tag "Manual") |
| 1724 | 1725 |
| 1725 ;;; The `custom-magic' Widget. | 1726 ;;; The `custom-magic' Widget. |
| 1726 | 1727 |
| 1727 (defgroup custom-magic-faces nil | 1728 (defgroup custom-magic-faces nil |
| 2199 (insert "See also ") | 2200 (insert "See also ") |
| 2200 (while links | 2201 (while links |
| 2201 (push (widget-create-child-and-convert | 2202 (push (widget-create-child-and-convert |
| 2202 widget (car links) | 2203 widget (car links) |
| 2203 :button-face 'custom-link | 2204 :button-face 'custom-link |
| 2204 :mouse-face 'highlight) | 2205 :mouse-face 'highlight |
| 2206 :pressed-face 'highlight) | |
| 2205 buttons) | 2207 buttons) |
| 2206 (setq links (cdr links)) | 2208 (setq links (cdr links)) |
| 2207 (cond ((null links) | 2209 (cond ((null links) |
| 2208 (insert ".\n")) | 2210 (insert ".\n")) |
| 2209 ((null (cdr links)) | 2211 ((null (cdr links)) |
| 2245 (insert "\nParent documentation: ") | 2247 (insert "\nParent documentation: ") |
| 2246 (while links | 2248 (while links |
| 2247 (push (widget-create-child-and-convert | 2249 (push (widget-create-child-and-convert |
| 2248 widget (car links) | 2250 widget (car links) |
| 2249 :button-face 'custom-link | 2251 :button-face 'custom-link |
| 2250 :mouse-face 'highlight) | 2252 :mouse-face 'highlight |
| 2253 :pressed-face 'highlight) | |
| 2251 buttons) | 2254 buttons) |
| 2252 (setq links (cdr links)) | 2255 (setq links (cdr links)) |
| 2253 (cond ((null links) | 2256 (cond ((null links) |
| 2254 (insert ".\n")) | 2257 (insert ".\n")) |
| 2255 ((null (cdr links)) | 2258 ((null (cdr links)) |
| 3588 | 3591 |
| 3589 (define-widget 'custom-group-link 'link | 3592 (define-widget 'custom-group-link 'link |
| 3590 "Show parent in other window when activated." | 3593 "Show parent in other window when activated." |
| 3591 :button-face 'custom-link | 3594 :button-face 'custom-link |
| 3592 :mouse-face 'highlight | 3595 :mouse-face 'highlight |
| 3596 :pressed-face 'highlight | |
| 3593 :help-echo "Create customization buffer for this group." | 3597 :help-echo "Create customization buffer for this group." |
| 3594 :action 'custom-group-link-action) | 3598 :action 'custom-group-link-action) |
| 3595 | 3599 |
| 3596 (defun custom-group-link-action (widget &rest ignore) | 3600 (defun custom-group-link-action (widget &rest ignore) |
| 3597 (customize-group (widget-value widget))) | 3601 (customize-group (widget-value widget))) |