Mercurial > emacs

diff lisp/cus-edit.el @ 67797:7bdbb812b2f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* custom.el (custom-push-theme): Fix docstring. * cus-edit.el (custom-variable-set, custom-variable-save, custom-variable-save): Custom-quote widget values. (customize-save-variable): Fix custom-push-theme call.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 24 Dec 2005 15:21:45 +0000
parents 49724377f337
children 66965e79dd66
line wrap: on
line diff
--- a/lisp/cus-edit.el	Sat Dec 24 12:52:26 2005 +0000
+++ b/lisp/cus-edit.el	Sat Dec 24 15:21:45 2005 +0000
@@ -940,7 +940,7 @@
 				       current-prefix-arg))
   (funcall (or (get variable 'custom-set) 'set-default) variable value)
   (put variable 'saved-value (list (custom-quote value)))
-  (custom-push-theme 'theme-value variable 'user 'set (list (custom-quote value)))
+  (custom-push-theme 'theme-value variable 'user 'set (custom-quote value))
   (cond ((string= comment "")
  	 (put variable 'variable-comment nil)
  	 (put variable 'saved-variable-comment nil))
@@ -2670,7 +2670,7 @@
 	     (custom-comment-hide comment-widget))
 	   (custom-variable-backup-value widget)
 	   (custom-push-theme 'theme-value symbol 'user
-			      'set (widget-value child))
+			      'set (custom-quote (widget-value child)))
 	   (funcall set symbol (eval (setq val (widget-value child))))
 	   (put symbol 'customized-value (list val))
 	   (put symbol 'variable-comment comment)
@@ -2682,7 +2682,7 @@
 	     (custom-comment-hide comment-widget))
 	   (custom-variable-backup-value widget)
 	   (custom-push-theme 'theme-value symbol 'user
-			      'set (widget-value child))
+			      'set (custom-quote (widget-value child)))
 	   (funcall set symbol (setq val (widget-value child)))
 	   (put symbol 'customized-value (list (custom-quote val)))
 	   (put symbol 'variable-comment comment)
@@ -2712,7 +2712,7 @@
 	     (custom-comment-hide comment-widget))
 	   (put symbol 'saved-value (list (widget-value child)))
 	   (custom-push-theme 'theme-value symbol 'user
-			      'set (widget-value child))
+			      'set (custom-quote (widget-value child)))
 	   (funcall set symbol (eval (widget-value child)))
 	   (put symbol 'variable-comment comment)
 	   (put symbol 'saved-variable-comment comment))
@@ -2724,7 +2724,7 @@
 	   (put symbol 'saved-value
 		(list (custom-quote (widget-value child))))
 	   (custom-push-theme 'theme-value symbol 'user
-			      'set (widget-value child))
+			      'set (custom-quote (widget-value child)))
 	   (funcall set symbol (widget-value child))
 	   (put symbol 'variable-comment comment)
 	   (put symbol 'saved-variable-comment comment)))