Mercurial > emacs
comparison lisp/cus-edit.el @ 90299:9e490faa9f6b
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-17
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 85-96)
- Update from CVS
- Merge from erc--emacs--0
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 30-36)
- Merge from emacs--devo--0
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 17 Feb 2006 09:10:23 +0000 |
| parents | 7432ca837c8d 08407ff48591 |
| children | d1c5430c5bff |
comparison
equal
deleted
inserted
replaced
| 90298:15363e44d751 | 90299:9e490faa9f6b |
|---|---|
| 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))) |
| 4363 (define-key map "\C-x\C-s" 'Custom-save) | 4367 (define-key map "\C-x\C-s" 'Custom-save) |
| 4364 (define-key map "q" 'Custom-buffer-done) | 4368 (define-key map "q" 'Custom-buffer-done) |
| 4365 (define-key map "u" 'Custom-goto-parent) | 4369 (define-key map "u" 'Custom-goto-parent) |
| 4366 (define-key map "n" 'widget-forward) | 4370 (define-key map "n" 'widget-forward) |
| 4367 (define-key map "p" 'widget-backward) | 4371 (define-key map "p" 'widget-backward) |
| 4368 (define-key map [mouse-1] 'widget-move-and-invoke) | |
| 4369 map) | 4372 map) |
| 4370 "Keymap for `custom-mode'.") | 4373 "Keymap for `custom-mode'.") |
| 4371 | 4374 |
| 4372 (easy-menu-define Custom-mode-menu | 4375 (easy-menu-define Custom-mode-menu |
| 4373 custom-mode-map | 4376 custom-mode-map |
| 4419 Move to next button, link or editable field. \\[widget-forward] | 4422 Move to next button, link or editable field. \\[widget-forward] |
| 4420 Move to previous button, link or editable field. \\[advertised-widget-backward] | 4423 Move to previous button, link or editable field. \\[advertised-widget-backward] |
| 4421 \\<custom-field-keymap>\ | 4424 \\<custom-field-keymap>\ |
| 4422 Complete content of editable text field. \\[widget-complete] | 4425 Complete content of editable text field. \\[widget-complete] |
| 4423 \\<custom-mode-map>\ | 4426 \\<custom-mode-map>\ |
| 4424 Invoke button under the mouse pointer. \\[widget-move-and-invoke] | 4427 Invoke button under the mouse pointer. \\[widget-button-click] |
| 4425 Invoke button under point. \\[widget-button-press] | 4428 Invoke button under point. \\[widget-button-press] |
| 4426 Set all options from current text. \\[Custom-set] | 4429 Set all options from current text. \\[Custom-set] |
| 4427 Make values in current text permanent. \\[Custom-save] | 4430 Make values in current text permanent. \\[Custom-save] |
| 4428 Make text match actual option values. \\[Custom-reset-current] | 4431 Make text match actual option values. \\[Custom-reset-current] |
| 4429 Reset options to permanent settings. \\[Custom-reset-saved] | 4432 Reset options to permanent settings. \\[Custom-reset-saved] |