817 |
|
|
818 |
If the default value of SYMBOL is different from the standard value, |
If the default value of SYMBOL is different from the standard value, |
819 |
set the `saved-value' property to a list whose car evaluates to the |
set the `saved-value' property to a list whose car evaluates to the |
820 |
default value. Otherwise, set it til nil. |
default value. Otherwise, set it to nil. |
821 |
|
|
822 |
To actually save the value, call `custom-save-all'. |
To actually save the value, call `custom-save-all'. |
823 |
|
|
847 |
If the default value of SYMBOL is different from the saved value if any, |
If the default value of SYMBOL is different from the saved value if any, |
848 |
or else if it is different from the standard value, set the |
or else if it is different from the standard value, set the |
849 |
`customized-value' property to a list whose car evaluates to the |
`customized-value' property to a list whose car evaluates to the |
850 |
default value. Otherwise, set it til nil. |
default value. Otherwise, set it to nil. |
851 |
|
|
852 |
Return non-nil iff the `customized-value' property actually changed." |
Return non-nil iff the `customized-value' property actually changed." |
853 |
(let* ((get (or (get symbol 'custom-get) 'default-value)) |
(let* ((get (or (get symbol 'custom-get) 'default-value)) |
896 |
(custom-make-theme-feature theme)))) |
(custom-make-theme-feature theme)))) |
897 |
|
|
898 |
(defun custom-remove-theme (spec-alist theme) |
(defun custom-remove-theme (spec-alist theme) |
899 |
"Detelete all elements from SPEC-ALIST whose car is THEME." |
"Delete all elements from SPEC-ALIST whose car is THEME." |
900 |
(let ((elt (assoc theme spec-alist))) |
(let ((elt (assoc theme spec-alist))) |
901 |
(while elt |
(while elt |
902 |
(setq spec-alist (delete elt spec-alist) |
(setq spec-alist (delete elt spec-alist) |