unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* Customize Rogue
@ 2003-03-06  8:39 Per Abrahamsen
  2003-03-06  9:39 ` Juanma Barranquero
  2003-03-07 19:40 ` Richard Stallman
  0 siblings, 2 replies; 55+ messages in thread
From: Per Abrahamsen @ 2003-03-06  8:39 UTC (permalink / raw)


I wrote this function as a transition tool from "setq" to customize,
it list all "rogue" variables, that is, variables that have been
declared by defcustom but changed outside customize.

OK to add to to cus-edit.el?

Ideally, the only "rogue" variables would be those the user have set
in .emacs himself, unfortunately there are a number of rogue variables
even in a fresh Emacs.  These are all potential problems.  For some
it is just a question of initialization, menu-bar-mode was an example
of that.  Others are changed later from Lisp code, those should
probably not be declared with defcustom, as changed from Lisp will
conflict with changed made by the user.

;;;###autoload
(defun customize-rogue ()
  "Customize all user variable 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.
			     (default-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*"))))

^ permalink raw reply	[flat|nested] 55+ messages in thread

end of thread, other threads:[~2003-03-15 10:33 UTC | newest]

Thread overview: 55+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2003-03-06  8:39 Customize Rogue Per Abrahamsen
2003-03-06  9:39 ` Juanma Barranquero
2003-03-06 15:15   ` Per Abrahamsen
2003-03-06 15:45     ` Juanma Barranquero
2003-03-07  8:03       ` Per Abrahamsen
     [not found]     ` <rjfzpzeh87.fsf@zuse.dina.kvl.dk>
     [not found]       ` <200303100251.UAA13345@eel.dms.auburn.edu>
     [not found]         ` <rjsmtvuxd0.fsf@zuse.dina.kvl.dk>
2003-03-10 15:18           ` Kim F. Storm
2003-03-10 14:41             ` Kai Großjohann
2003-03-10 14:42             ` Luc Teirlinck
2003-03-07 19:40   ` Richard Stallman
2003-03-08 13:43     ` Juanma Barranquero
2003-03-09 17:16       ` Luc Teirlinck
2003-03-09 18:03         ` Juanma Barranquero
2003-03-09 18:25           ` Luc Teirlinck
2003-03-09 18:49             ` Juanma Barranquero
2003-03-09 20:02               ` Robert J. Chassell
2003-03-10 14:24               ` Per Abrahamsen
2003-03-11 19:07               ` Stefan Monnier
2003-03-11 20:41                 ` Juanma Barranquero
2003-03-12  1:26                 ` Luc Teirlinck
2003-03-12 12:07                   ` Kai Großjohann
2003-03-12 18:38                   ` Stefan Monnier
2003-03-13  0:27                     ` Luc Teirlinck
2003-03-13  7:48                     ` Richard Stallman
2003-03-12 20:59                 ` Richard Stallman
2003-03-09 18:40           ` Luc Teirlinck
2003-03-09 19:00             ` Juanma Barranquero
2003-03-09 19:37               ` Luc Teirlinck
2003-03-09 20:03                 ` Juanma Barranquero
2003-03-09 18:50           ` Luc Teirlinck
2003-03-09 19:05             ` Juanma Barranquero
2003-03-09 20:28             ` Customize and inhibit-startup-echo-area-message Luc Teirlinck
2003-03-10 14:43           ` Customize Rogue Per Abrahamsen
2003-03-10 14:59             ` Andreas Schwab
2003-03-12 12:50               ` Per Abrahamsen
2003-03-10 15:04             ` Kai Großjohann
2003-03-12 13:06               ` Per Abrahamsen
     [not found]             ` <20030310163108.44F9.LEKTU@terra.es>
2003-03-12 13:23               ` Per Abrahamsen
2003-03-12 15:00                 ` Juanma Barranquero
     [not found]                   ` <rju1e77b8v.fsf@zuse.dina.kvl.dk>
2003-03-13 14:03                     ` Juanma Barranquero
2003-03-12 23:30                 ` David Masterson
     [not found]                   ` <rj1y1b8q46.fsf@zuse.dina.kvl.dk>
     [not found]                     ` <uptov2g78.fsf@synopsys.com>
     [not found]                       ` <rjr89b0vxt.fsf@zuse.dina.kvl.dk>
2003-03-14  0:25                         ` David Masterson
2003-03-14  4:21                         ` Luc Teirlinck
     [not found]                           ` <uadfx6b0c.fsf@synopsys.com>
     [not found]                             ` <200303142312.RAA17322@eel.dms.auburn.edu>
     [not found]                               ` <15986.27208.152000.911108@gargle.gargle.HOWL>
     [not found]                                 ` <200303150002.SAA17358@eel.dms.auburn.edu>
2003-03-15  0:22                                   ` David Masterson
2003-03-15 10:33                                     ` John Wiegley
2003-03-15  0:28                         ` John Wiegley
2003-03-15  1:04                           ` David Masterson
     [not found]               ` <200303110016.SAA14021@eel.dms.auburn.edu>
     [not found]                 ` <20030311012051.6EDF.LEKTU@terra.es>
2003-03-12 14:19                   ` Per Abrahamsen
2003-03-12 14:58                     ` Juanma Barranquero
2003-03-13  0:13                     ` Luc Teirlinck
     [not found]                       ` <rj8yvj8qfb.fsf@zuse.dina.kvl.dk>
     [not found]                         ` <200303131444.IAA16109@eel.dms.auburn.edu>
2003-03-13 22:01                           ` Per Abrahamsen
     [not found]                 ` <200303131534.JAA16193@eel.dms.auburn.edu>
2003-03-14  5:59                   ` Richard Stallman
     [not found]               ` <E18sYEe-0004sQ-00@fencepost.gnu.org>
     [not found]                 ` <20030311021233.6EE2.LEKTU@terra.es>
     [not found]                   ` <m33cluos3o.fsf@cicero.benny.turtle-trading.net>
     [not found]                     ` <200303111543.JAA14383@eel.dms.auburn.edu>
     [not found]                       ` <m3fzpt7usm.fsf@cicero.benny.turtle-trading.net>
     [not found]                         ` <200303111629.KAA14566@eel.dms.auburn.edu>
2003-03-12 14:26                           ` Per Abrahamsen
     [not found]                     ` <E18t07p-0003C4-00@fencepost.gnu.org>
2003-03-12 22:34                       ` Luc Teirlinck
2003-03-07 19:40 ` Richard Stallman
2003-03-10 14:51   ` Per Abrahamsen

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).