[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r103702: Several fixes to cus-theme.e
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r103702: Several fixes to cus-theme.el. |
Date: |
Mon, 21 Mar 2011 00:30:55 -0400 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r103702: Several fixes to cus-theme.el.,
Chong Yidong <=