From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Per Abrahamsen Newsgroups: gmane.emacs.devel Subject: Re: [dortmann@lsil.com: emacs customization suggestion: 'customize-existing'] Date: Tue, 10 Feb 2004 14:44:40 +0100 Organization: The Church of Emacs Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: References: <40242394.4030207@yahoo.com> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1076420778 24383 80.91.224.253 (10 Feb 2004 13:46:18 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 10 Feb 2004 13:46:18 +0000 (UTC) Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Tue Feb 10 14:46:11 2004 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AqYDL-0007fI-00 for ; Tue, 10 Feb 2004 14:46:11 +0100 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1AqYDK-0007zb-00 for ; Tue, 10 Feb 2004 14:46:11 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AqYCt-0007JT-Fy for emacs-devel@quimby.gnus.org; Tue, 10 Feb 2004 08:45:43 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1AqYCd-0007FD-1Z for emacs-devel@gnu.org; Tue, 10 Feb 2004 08:45:27 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1AqYBw-0006oC-I0 for emacs-devel@gnu.org; Tue, 10 Feb 2004 08:45:16 -0500 Original-Received: from [80.91.224.249] (helo=main.gmane.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AqYBv-0006mw-MI for emacs-devel@gnu.org; Tue, 10 Feb 2004 08:44:43 -0500 Original-Received: from list by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 1AqYBu-0005op-00 for ; Tue, 10 Feb 2004 14:44:42 +0100 Original-Received: from sheridan.dina.kvl.dk ([130.225.40.227]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue Feb 10 13:44:42 2004 Original-Received: from abraham by sheridan.dina.kvl.dk with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue Feb 10 13:44:42 2004 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: emacs-devel@gnu.org Original-To: emacs-devel@gnu.org Original-Lines: 40 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: sheridan.dina.kvl.dk X-Face: +kRV2]2q}lixHkE{U)mY#+6]{AH=yN~S9@IFiOa@X6?GM|8MBp/ Mail-Copies-To: nobody User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3 (gnu/linux) Cancel-Lock: sha1:tduyTohlN8Y/s6TtKst0nm/S/Kw= X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:19852 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:19852 Richard Stallman writes: > > Perhaps we could use something to customize all the options that have > > non-default customizations, which is a little different from > > customize-customized. > > How is it different? Or rather, what do you mean by "non-default > customizations"? > > customize-customized shows you the variables that have unsaved > customizations. > > This proposed command would also show you the variables that have > customize settings that are saved. customize-saved also exists. Combining them is trivial, but I'm not sure the extra functionality is worth the extra command. ;;;###autoload (defun customize-touched () "Customize all user options that have been set through customize." (interactive) (let ((found nil)) (mapatoms (lambda (symbol) (and (or (get symbol 'customized-face) (get symbol 'customized-face-comment) (get symbol 'saved-face) (get symbol 'saved-face-comment)) (custom-facep symbol) (push (list symbol 'custom-face) found)) (and (or (get symbol 'customized-value) (get symbol 'customized-variable-comment) (get symbol 'saved-value) (get symbol 'saved-variable-comment)) (boundp symbol) (push (list symbol 'custom-variable) found)))) (if (not found) (error "No touched user options") (custom-buffer-create (custom-sort-items found t nil) "*Customize Touched*"))))