Mercurial > emacs
comparison lisp/cus-edit.el @ 68278:125d04254c22
(custom-buffer-create-internal): State in the text above
the whole buffer buttons that they do not operate on hidden items.
(custom-face-menu): Use `custom-face-save' instead of
`custom-face-save-command'.
(custom-face-save-command): Make it an alias for `custom-face-save'
and declare it obsolete.
(custom-face-save): Doc fix.
author | Luc Teirlinck <teirllm@auburn.edu> |
---|---|
date | Thu, 19 Jan 2006 23:26:04 +0000 |
parents | 4580b1bedd8a |
children | 05dbd20a248e |
comparison
equal
deleted
inserted
replaced
68277:a4e264f94259 | 68278:125d04254c22 |
---|---|
1483 :button-face 'custom-link | 1483 :button-face 'custom-link |
1484 :mouse-face 'highlight | 1484 :mouse-face 'highlight |
1485 :help-echo "Read the online help." | 1485 :help-echo "Read the online help." |
1486 "(emacs)Easy Customization") | 1486 "(emacs)Easy Customization") |
1487 (widget-insert " for more information.\n\n") | 1487 (widget-insert " for more information.\n\n") |
1488 (widget-insert "Operate on everything in this buffer:\n ")) | 1488 (widget-insert "Operate on all settings in this buffer that \ |
1489 are not marked HIDDEN:\n ")) | |
1489 (widget-insert " ")) | 1490 (widget-insert " ")) |
1490 (widget-create 'push-button | 1491 (widget-create 'push-button |
1491 :tag "Set for Current Session" | 1492 :tag "Set for Current Session" |
1492 :help-echo "\ | 1493 :help-echo "\ |
1493 Make your editing in this buffer take effect for this session." | 1494 Make your editing in this buffer take effect for this session." |
3321 (message "Creating face editor...done")))))) | 3322 (message "Creating face editor...done")))))) |
3322 | 3323 |
3323 (defvar custom-face-menu | 3324 (defvar custom-face-menu |
3324 `(("Set for Current Session" custom-face-set) | 3325 `(("Set for Current Session" custom-face-set) |
3325 ,@(when (or custom-file user-init-file) | 3326 ,@(when (or custom-file user-init-file) |
3326 '(("Save for Future Sessions" custom-face-save-command))) | 3327 '(("Save for Future Sessions" custom-face-save))) |
3327 ("Undo Edits" custom-redraw | 3328 ("Undo Edits" custom-redraw |
3328 (lambda (widget) | 3329 (lambda (widget) |
3329 (memq (widget-get widget :custom-state) '(modified changed)))) | 3330 (memq (widget-get widget :custom-state) '(modified changed)))) |
3330 ("Reset to Saved" custom-face-reset-saved | 3331 ("Reset to Saved" custom-face-reset-saved |
3331 (lambda (widget) | 3332 (lambda (widget) |
3446 (put symbol 'customized-face-comment comment) | 3447 (put symbol 'customized-face-comment comment) |
3447 (put symbol 'face-comment comment) | 3448 (put symbol 'face-comment comment) |
3448 (custom-face-state-set widget) | 3449 (custom-face-state-set widget) |
3449 (custom-redraw-magic widget))) | 3450 (custom-redraw-magic widget))) |
3450 | 3451 |
3451 (defun custom-face-save-command (widget) | 3452 (defun custom-face-save (widget) |
3452 "Save in `.emacs' the face attributes in WIDGET." | 3453 "Save in `.emacs' the face attributes in WIDGET." |
3453 (custom-face-save widget) | |
3454 (custom-save-all)) | |
3455 | |
3456 (defun custom-face-save (widget) | |
3457 "Prepare for saving WIDGET's face attributes, but don't write `.emacs'." | |
3458 (let* ((symbol (widget-value widget)) | 3454 (let* ((symbol (widget-value widget)) |
3459 (child (car (widget-get widget :children))) | 3455 (child (car (widget-get widget :children))) |
3460 (value (custom-post-filter-face-spec (widget-value child))) | 3456 (value (custom-post-filter-face-spec (widget-value child))) |
3461 (comment-widget (widget-get widget :comment-widget)) | 3457 (comment-widget (widget-get widget :comment-widget)) |
3462 (comment (widget-value comment-widget))) | 3458 (comment (widget-value comment-widget))) |
3477 (put symbol 'customized-face-comment nil) | 3473 (put symbol 'customized-face-comment nil) |
3478 (put symbol 'saved-face-comment comment) | 3474 (put symbol 'saved-face-comment comment) |
3479 (custom-save-all) | 3475 (custom-save-all) |
3480 (custom-face-state-set widget) | 3476 (custom-face-state-set widget) |
3481 (custom-redraw-magic widget))) | 3477 (custom-redraw-magic widget))) |
3478 | |
3479 ;; For backward compatibility. | |
3480 (define-obsolete-function-alias 'custom-face-save-command 'custom-face-save | |
3481 "22.1") | |
3482 | 3482 |
3483 (defun custom-face-reset-saved (widget) | 3483 (defun custom-face-reset-saved (widget) |
3484 "Restore WIDGET to the face's default attributes." | 3484 "Restore WIDGET to the face's default attributes." |
3485 (let* ((symbol (widget-value widget)) | 3485 (let* ((symbol (widget-value widget)) |
3486 (child (car (widget-get widget :children))) | 3486 (child (car (widget-get widget :children))) |