X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece.el;h=67ee557d84c0d41a43667fa307e17e2e9053ad40;hp=ca6ebb5344c7597ccea0321aa22aead3865e9b8a;hb=777d22f37f8371dc8dc8108dd7920c934c19f687;hpb=ba5217ab11f5439e3dc383fc7882e90f0246c4db

diff --git a/lisp/riece.el b/lisp/riece.el
index ca6ebb5..67ee557 100644
--- a/lisp/riece.el
+++ b/lisp/riece.el
@@ -238,12 +238,21 @@ If optional argument SAFE is nil, overwrite previous definitions."
   (let ((files (if file
 		   (setq riece-variables-file file
 			 riece-variables-files (list file))
-		 riece-variables-files)))
+		 riece-variables-files))
+	(variables riece-saved-forms))
     (while files
       (condition-case nil
 	  (load (expand-file-name (car files)))
 	(file-error nil))
-      (setq files (cdr files)))))
+      (setq files (cdr files)))
+    (while variables
+      (if (fboundp 'custom-reevaluate-setting)
+	  (custom-reevaluate-setting (car variables))
+	(funcall (or (get (car variables) 'custom-set) 'set-default)
+		 (car variables)
+		 (eval (car (or (get (car variables) 'saved-value)
+				(get (car variables) 'standard-value))))))
+      (setq variables (cdr variables)))))
 
 (defvar print-quoted)
 (defvar print-escape-multibyte)
@@ -262,7 +271,7 @@ If optional argument SAFE is nil, overwrite previous definitions."
       (insert "(custom-set-variables\n")
       (while variables
 	(insert " '")
-	(prin1 `(,(car variables) ,(symbol-value (car variables)))
+	(prin1 `(,(car variables) ',(symbol-value (car variables)))
 	       (current-buffer))
 	(insert "\n")
 	(setq variables (cdr variables)))