Re: convert from setq to customization

[Per Abrahamsen <abraham@dina.kvl.dk>]

merlyn@stonehenge.com (Randal L. Schwartz) writes:

> Is there any trivial way for me to tell the customization stuff to
> look at the current values of things, and absorb them as customize
> settings?  Am I making any sense?

Interesting idea, try this function.  It list all user options that
have been changed outside customize.

(defun customize-rogue ()
  "Customize all user options modified outside customize."
  (interactive)
  (let ((found nil))
    (mapatoms (lambda (symbol)
		(let ((cval (or (get symbol 'customized-value)
				(get symbol 'saved-value)
				(get symbol 'standard-value))))
		  (when (and cval 	;Declared with defcustom.
			     (boundp symbol) ;Has a value.
			     (not (equal (eval (car cval)) 
					 ;; Which does not match customize.
					 (default-value symbol))))
		    (push (list symbol 'custom-variable) found)))))
    (if (not found)
	(error "No rogue user options")
      (custom-buffer-create (custom-sort-items found t nil)
			    "*Customize Rogue*"))))

Unfortuntely, there is too much rude Lisp code that changes user
setings for this to be really useful.