(widget-insert " ")
(widget-create 'push-button
:notify (lambda (&rest ignore)
- (custom-theme-create))
+ (customize-create-theme))
"Reset")
(widget-insert " ")
(widget-create 'push-button
(princ " '(")
(prin1 symbol)
(princ " ")
- (prin1 (symbol-value symbol))
+ (prin1 (custom-quote (symbol-value symbol)))
(princ ")")))
vars)
(if (bolp)
(unless (looking-at "\n")
(princ "\n")))))
+;;; arch-tag: cd6919bc-63af-410e-bae2-b6702e762344
;;; cus-theme.el ends here