`:prompt-value' property of that widget will be used for reading the value.
If given a prefix (or a COMMENT argument), also prompt for a comment."
- (interactive (custom-prompt-variable "Set and ave variable: "
+ (interactive (custom-prompt-variable "Set and save variable: "
"Set and save value for %s as: "
current-prefix-arg))
(funcall (or (get variable 'custom-set) 'set-default) variable value)
(princ "\n"))
(princ "(custom-set-variables")
(mapatoms (lambda (symbol)
- (let ((spec (car-safe (get symbol 'theme-value)))
+ (let ((spec (car-safe (get symbol 'theme-value)))
(requests (get symbol 'custom-requests))
(now (not (or (get symbol 'standard-value)
(and (not (boundp symbol))
(not (eq (get symbol 'force-value)
'rogue))))))
(comment (get symbol 'saved-variable-comment)))
- (when (or (and spec (eq (car spec) 'user)
- (eq (second spec) 'set)) comment)
+ (when (or (and spec
+ (eq (car spec) 'user)
+ (eq (second spec) 'set))
+ comment
+ ;; support non-themed vars
+ (and (null spec) (get symbol 'saved-value)))
(princ "\n '(")
(prin1 symbol)
(princ " ")
(and (not (find-face symbol))
(not (eq (get symbol 'force-face) 'rogue)))))))
(when (or (and (not (memq symbol custom-save-face-ignoring))
- ;; Don't print default face here.
- theme-spec
- (eq (car theme-spec) 'user)
- (eq (second theme-spec) 'set)) comment)
+ ;; Don't print default face here.
+ (or (and theme-spec
+ (eq (car theme-spec) 'user)
+ (eq (second theme-spec) 'set))
+ ;; cope with non-themed faces
+ (and (null theme-spec)
+ (get symbol 'saved-face))))
+ comment)
(princ "\n '(")
(prin1 symbol)
(princ " ")