[Emacs-diffs] /srv/bzr/emacs/trunk r103702: Several fixes to cus-theme.el.

[Chong Yidong]

------------------------------------------------------------
revno: 103702
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Mon 2011-03-21 00:30:55 -0400
message:
  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.
modified:
  lisp/ChangeLog
  lisp/cus-theme.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-03-20 20:59:29 +0000
+++ b/lisp/ChangeLog    2011-03-21 04:30:55 +0000
@@ -1,3 +1,10 @@
+2011-03-21  Chong Yidong  <address@hidden>
+
+       * 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  <address@hidden>
 
        * calc/calc-menu.el (calc-units-menu): Add entries for logarithmic

=== modified file 'lisp/cus-theme.el'
--- a/lisp/cus-theme.el 2011-02-01 17:34:07 +0000
+++ b/lisp/cus-theme.el 2011-03-21 04:30:55 +0000
@@ -100,6 +100,9 @@
   (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 @@
        (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 @@
 
 ;;; 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 @@
   (widget-toggle-action widget event)
   (setq custom-theme-allow-multiple-selections (widget-value widget)))
 
+(provide 'cus-theme)
+
 ;;; cus-theme.el ends here