Several fixes to cus-theme.el.

* lisp/cus-theme.el: Add missing provide statement.
(customize-create-theme): Extract theme value correctly.
(custom-theme-visit-theme): Autoload.
(customize-create-theme): Prompt before inserting default faces.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b12445b466fbfd3c51b227a609b6f3b12a3b7ad2..d568b07bb15224315f63c11888c8c2a543b042af 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2011-03-21  Chong Yidong  <cyd@stupidchicken.com>
+
+       * cus-theme.el: Add missing provide statement.
+       (customize-create-theme): Extract theme value correctly.
+       (custom-theme-visit-theme): Autoload.
+       (customize-create-theme): Prompt before inserting default faces.
+
 2011-03-20  Jay Belanger  <jay.p.belanger@gmail.com>
 
        * calc/calc-menu.el (calc-units-menu): Add entries for logarithmic

diff --git a/lisp/cus-theme.el b/lisp/cus-theme.el
index cdc066aa91a6088630f2f6785cd5e72abc82dc2d..4f9428d497b36d30078a2b5fa0ee83b387232386 100644 (file)
--- a/lisp/cus-theme.el
+++ b/lisp/cus-theme.el
@@ -100,6 +100,9 @@ named *Custom Theme*."
   (make-local-variable 'custom-theme-insert-face-marker)
   (make-local-variable 'custom-theme-insert-variable-marker)
   (make-local-variable 'custom-theme--listed-faces)
+  (when (called-interactively-p 'interactive)
+    (unless (y-or-n-p "Include basic face customizations in this theme? ")
+      (setq custom-theme--listed-faces nil)))
 
   (if (eq theme 'user)
       (widget-insert "This buffer contains all the Custom settings you have made.
@@ -188,7 +191,7 @@ remove them from your saved Custom file.\n\n"))
        (while vars
          (if (eq (car vars) 'custom-enabled-themes)
              (progn (pop vars) (pop values))
-           (custom-theme-add-var-1 (pop vars) (pop values)))))
+           (custom-theme-add-var-1 (pop vars) (eval (pop values))))))
     (setq custom-theme-insert-variable-marker (point-marker))
     (widget-insert " ")
     (widget-create 'push-button
@@ -297,8 +300,9 @@ SPEC, if non-nil, should be a face spec to which to set the widget."
 
 ;;; Reading and writing
 
+;;;###autoload
 (defun custom-theme-visit-theme (theme)
-  "Load the custom theme THEME's settings into the current buffer."
+  "Set up a Custom buffer to edit custom theme THEME."
   (interactive
    (list
     (intern (completing-read "Find custom theme: "
@@ -663,4 +667,6 @@ Theme files are named *-theme.el in `"))
   (widget-toggle-action widget event)
   (setq custom-theme-allow-multiple-selections (widget-value widget)))
 
+(provide 'cus-theme)
+
 ;;; cus-theme.el ends here