758 |
(interactive (custom-prompt-variable "Set variable: " |
(interactive (custom-prompt-variable "Set variable: " |
759 |
"Set %s to value: " |
"Set %s to value: " |
760 |
current-prefix-arg)) |
current-prefix-arg)) |
761 |
|
|
762 |
(cond ((string= comment "") |
(cond ((string= comment "") |
763 |
(put variable 'variable-comment nil)) |
(put variable 'variable-comment nil)) |
764 |
(comment |
(comment |
2515 |
:button-args '(:help-echo "Control whether this attribute has any effect.") |
:button-args '(:help-echo "Control whether this attribute has any effect.") |
2516 |
:value-to-internal 'custom-face-edit-fix-value |
:value-to-internal 'custom-face-edit-fix-value |
2517 |
:match (lambda (widget value) |
:match (lambda (widget value) |
2518 |
(widget-checklist-match widget |
(widget-checklist-match widget |
2519 |
(custom-face-edit-fix-value widget value))) |
(custom-face-edit-fix-value widget value))) |
2520 |
:convert-widget 'custom-face-edit-convert-widget |
:convert-widget 'custom-face-edit-convert-widget |
2521 |
:args (mapcar (lambda (att) |
:args (mapcar (lambda (att) |
2543 |
((eq key :reverse-video) |
((eq key :reverse-video) |
2544 |
(push :inverse-video result) |
(push :inverse-video result) |
2545 |
(push val result)) |
(push val result)) |
2546 |
(t |
(t |
2547 |
(push key result) |
(push key result) |
2548 |
(push val result)))) |
(push val result)))) |
2549 |
(setq value (cdr (cdr value)))) |
(setq value (cdr (cdr value)))) |
2606 |
(delete-region (car (cdr inactive)) |
(delete-region (car (cdr inactive)) |
2607 |
(+ (car (cdr inactive)) (cdr (cdr inactive)))) |
(+ (car (cdr inactive)) (cdr (cdr inactive)))) |
2608 |
(widget-put widget :inactive nil)))) |
(widget-put widget :inactive nil)))) |
2609 |
|
|
2610 |
|
|
2611 |
(defun custom-face-edit-attribute-tag (widget) |
(defun custom-face-edit-attribute-tag (widget) |
2612 |
"Returns the first :tag property in WIDGET or one of its children." |
"Returns the first :tag property in WIDGET or one of its children." |
3709 |
(when (or (and spec |
(when (or (and spec |
3710 |
(eq (nth 0 spec) 'user) |
(eq (nth 0 spec) 'user) |
3711 |
(eq (nth 1 spec) 'set)) |
(eq (nth 1 spec) 'set)) |
3712 |
comment) |
comment |
3713 |
|
(and (null spec) (get symbol 'saved-value))) |
3714 |
(unless (bolp) |
(unless (bolp) |
3715 |
(princ "\n")) |
(princ "\n")) |
3716 |
(princ " '(") |
(princ " '(") |
3780 |
(when (or (and theme-spec |
(when (or (and theme-spec |
3781 |
(eq (nth 0 theme-spec) 'user) |
(eq (nth 0 theme-spec) 'user) |
3782 |
(eq (nth 1 theme-spec) 'set)) |
(eq (nth 1 theme-spec) 'set)) |
3783 |
comment) |
comment |
3784 |
|
(and (null theme-spec) (get symbol 'saved-face))) |
3785 |
;; Don't print default face here. |
;; Don't print default face here. |
3786 |
(unless (bolp) |
(unless (bolp) |
3787 |
(princ "\n")) |
(princ "\n")) |
3835 |
(mapatoms mapper) |
(mapatoms mapper) |
3836 |
(when started-writing |
(when started-writing |
3837 |
(princ ")\n"))))) |
(princ ")\n"))))) |
3838 |
|
|
3839 |
(defun custom-save-loaded-themes () |
(defun custom-save-loaded-themes () |
3840 |
(let ((themes (reverse (get 'user 'theme-loads-themes))) |
(let ((themes (reverse (get 'user 'theme-loads-themes))) |
3841 |
(standard-output (current-buffer))) |
(standard-output (current-buffer))) |
3845 |
(mapc (lambda (theme) |
(mapc (lambda (theme) |
3846 |
(princ "\n '") |
(princ "\n '") |
3847 |
(prin1 theme)) themes) |
(prin1 theme)) themes) |
3848 |
(princ " )\n")))) |
(princ " )\n")))) |
3849 |
|
|
3850 |
;;;###autoload |
;;;###autoload |
3851 |
(defun customize-save-customized () |
(defun customize-save-customized () |