+2009-09-10 Daiki Ueno <ueno@unixuser.org>
+
+ * riece.el (riece-read-variables-files)
+ (riece-save-variables-files): Revert to use setq instead of
+ custom-set-variables. Fixes #27384.
+ <http://savannah.nongnu.org/bugs/?27384>
+
2009-08-28 TAKAHASHI Kaoru <kaoru@kaisei.org>
* riece-addon.el (riece-command-insinuate-addon)
(let ((files (if file
(setq riece-variables-file file
riece-variables-files (list file))
- riece-variables-files))
- (variables riece-saved-forms))
+ riece-variables-files)))
(while files
(condition-case nil
(load (expand-file-name (car files)))
(file-error nil))
- (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)))))
+ (setq files (cdr files)))))
(defvar print-quoted)
(defvar print-escape-multibyte)
print-level
print-length
(variables riece-saved-forms))
- (insert "(custom-set-variables\n")
(while variables
- (insert " '")
- (prin1 `(,(car variables) ',(symbol-value (car variables)))
+ (prin1 `(setq ,(car variables)
+ ',(symbol-value (car variables)))
(current-buffer))
(insert "\n")
- (setq variables (cdr variables)))
- (insert ")")))
+ (setq variables (cdr variables)))))
(message (riece-mcat "Saving %s...done") riece-saved-variables-file)
(setq riece-save-variables-are-dirty nil))