From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Luc Teirlinck Newsgroups: gmane.emacs.devel Subject: Re: doc elisp intro cross reference fixes Date: Thu, 27 Nov 2003 10:11:43 -0600 (CST) Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <200311271611.hARGBhP04028@raven.dms.auburn.edu> References: <87wua28zux.fsf@zip.com.au> <87ad6vdsxi.fsf@mail.jurta.org> <200311190418.hAJ4ITC02466@raven.dms.auburn.edu> <200311190528.hAJ5SrK02553@raven.dms.auburn.edu> <3FBBD155.2050703@yahoo.com> <200311192238.hAJMcTM06424@raven.dms.auburn.edu> <3FBD2533.6090503@yahoo.com> <200311270014.hAR0E0i02821@raven.dms.auburn.edu> NNTP-Posting-Host: deer.gmane.org X-Trace: sea.gmane.org 1069950152 1177 80.91.224.253 (27 Nov 2003 16:22:32 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 27 Nov 2003 16:22:32 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Thu Nov 27 17:22:29 2003 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1APOuT-0007i6-00 for ; Thu, 27 Nov 2003 17:22:29 +0100 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1APOuT-00015T-00 for ; Thu, 27 Nov 2003 17:22:29 +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 1APPqS-0005kJ-03 for emacs-devel@quimby.gnus.org; Thu, 27 Nov 2003 12:22:24 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1APPoD-0004cG-5F for emacs-devel@gnu.org; Thu, 27 Nov 2003 12:20:05 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1APPnb-0004PY-Ta for emacs-devel@gnu.org; Thu, 27 Nov 2003 12:20:00 -0500 Original-Received: from [131.204.53.104] (helo=manatee.dms.auburn.edu) by monty-python.gnu.org with esmtp (Exim 4.24) id 1APPnX-0004Nm-1F for emacs-devel@gnu.org; Thu, 27 Nov 2003 12:19:23 -0500 Original-Received: from raven.dms.auburn.edu (raven.dms.auburn.edu [131.204.53.29]) by manatee.dms.auburn.edu (8.12.10/8.12.10) with ESMTP id hARGHvKk016495; Thu, 27 Nov 2003 10:17:57 -0600 (CST) Original-Received: (from teirllm@localhost) by raven.dms.auburn.edu (8.11.6+Sun/8.11.6) id hARGBhP04028; Thu, 27 Nov 2003 10:11:43 -0600 (CST) X-Authentication-Warning: raven.dms.auburn.edu: teirllm set sender to teirllm@dms.auburn.edu using -f Original-To: abraham@dina.kvl.dk In-reply-to: (message from Per Abrahamsen on Thu, 27 Nov 2003 12:26:46 +0100) 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:18168 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:18168 Per Abrahamsen wrote: Evaluate this expression to get a list of variables declared with defcustom but not in any group: (let (found) (mapatoms (lambda (sym) (let ((group (get sym 'custom-group))) (setq found (append group found))))) (mapatoms (lambda (sym) (and (get sym 'custom-type) (not (assq sym found)) (insert (format "%S\n" sym)))))) There are two problems with this expression: 1. (get sym 'custom-type) : Not only are there defcustom's without a :group, there also sre defcustom's without a :type : ELISP> (get 'ada-tight-gvd-integration 'custom-type) nil 2. A variable defined using a defcustom without a :group _is_ in a group, the `nil' group: ELISP> (get nil 'custom-group) ((ada-tight-gvd-integration custom-variable) (nnimap-authinfo-file custom-variable) (nnimap-prune-cache custom-variable) (nntp-authinfo-file custom-variable)) Sincerely, Luc.