From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Drew Adams" Newsgroups: gmane.emacs.bugs Subject: bug#13568: 24.3.50; wishlist: add a `group-p' predicate Date: Sun, 27 Jan 2013 10:24:56 -0800 Message-ID: <0138B6575E46439E9E33E54D07D2C103@us.oracle.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1359312334 12752 80.91.229.3 (27 Jan 2013 18:45:34 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 27 Jan 2013 18:45:34 +0000 (UTC) To: 13568@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sun Jan 27 19:45:53 2013 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1TzXEk-0005QS-Q4 for geb-bug-gnu-emacs@m.gmane.org; Sun, 27 Jan 2013 19:45:51 +0100 Original-Received: from localhost ([::1]:54419 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TzXET-0006d8-27 for geb-bug-gnu-emacs@m.gmane.org; Sun, 27 Jan 2013 13:45:33 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:49365) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TzXEP-0006cq-K0 for bug-gnu-emacs@gnu.org; Sun, 27 Jan 2013 13:45:30 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TzXEO-0002KD-Fw for bug-gnu-emacs@gnu.org; Sun, 27 Jan 2013 13:45:29 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:46156) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TzWvF-00049V-MA for bug-gnu-emacs@gnu.org; Sun, 27 Jan 2013 13:25:41 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1TzWva-0002uF-5t for bug-gnu-emacs@gnu.org; Sun, 27 Jan 2013 13:26:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: "Drew Adams" Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sun, 27 Jan 2013 18:26:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 13568 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: Original-Received: via spool by submit@debbugs.gnu.org id=B.135931114711144 (code B ref -1); Sun, 27 Jan 2013 18:26:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 27 Jan 2013 18:25:47 +0000 Original-Received: from localhost ([127.0.0.1]:51620 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TzWvK-0002tf-14 for submit@debbugs.gnu.org; Sun, 27 Jan 2013 13:25:47 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:60556) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TzWvF-0002tW-3H for submit@debbugs.gnu.org; Sun, 27 Jan 2013 13:25:43 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TzWuo-0003wu-KN for submit@debbugs.gnu.org; Sun, 27 Jan 2013 13:25:20 -0500 Original-Received: from lists.gnu.org ([208.118.235.17]:59154) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TzWuo-0003wf-FQ for submit@debbugs.gnu.org; Sun, 27 Jan 2013 13:25:14 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:43574) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TzWul-0001ce-Dj for bug-gnu-emacs@gnu.org; Sun, 27 Jan 2013 13:25:14 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TzWui-0003sC-Mv for bug-gnu-emacs@gnu.org; Sun, 27 Jan 2013 13:25:11 -0500 Original-Received: from aserp1040.oracle.com ([141.146.126.69]:47860) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TzWui-0003qK-GN for bug-gnu-emacs@gnu.org; Sun, 27 Jan 2013 13:25:08 -0500 Original-Received: from acsinet22.oracle.com (acsinet22.oracle.com [141.146.126.238]) by aserp1040.oracle.com (Sentrion-MTA-4.3.1/Sentrion-MTA-4.3.1) with ESMTP id r0RIP6Mu007181 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK) for ; Sun, 27 Jan 2013 18:25:06 GMT Original-Received: from acsmt356.oracle.com (acsmt356.oracle.com [141.146.40.156]) by acsinet22.oracle.com (8.14.4+Sun/8.14.4) with ESMTP id r0RIP5FU023935 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO) for ; Sun, 27 Jan 2013 18:25:05 GMT Original-Received: from abhmt106.oracle.com (abhmt106.oracle.com [141.146.116.58]) by acsmt356.oracle.com (8.12.11.20060308/8.12.11) with ESMTP id r0RIP5Np009801 for ; Sun, 27 Jan 2013 12:25:05 -0600 Original-Received: from dradamslap1 (/71.202.147.44) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Sun, 27 Jan 2013 10:25:05 -0800 X-Mailer: Microsoft Office Outlook 11 Thread-Index: Ac38u5uJsIu4CUkARGK/bBCUrarjYg== X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6157 X-Source-IP: acsinet22.oracle.com [141.146.126.238] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.4.x-2.6.x [generic] X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:70380 Archived-At: Subject line says it all: Please add a predicate `group-p' that returns non-nil if its symbol arg is a loaded customize group (i.e. defined by a defgroup that has been evaluated). Not sure what the code might be for an appropriate definition. I thought that perhaps (rassq SYMBOL custom-current-group-alist) could be used as the test, but apparently not. When there is more than one defgroup in a file, only the last group gets recorded for it in `custom-current-group-alist'. (Is that a bug or intended?) Perhaps one of the following tests, pulled from `customize-read-group', would be appropriate? I'm not sure what the second one is about. `group-p' should return non-nil only for a symbol defined in a defgroup that has been evaluated (e.g. loaded). 1. (get symbol 'custom-group) 2. (or (and (get symbol 'custom-loads) (not (get symbol 'custom-autoload))) (get symbol 'custom-group)) But I see that a defgroup for a group that has not (yet) had any faces or options (or subgroups) added to it is not reflected in `custom-group', so I guess that test is not appropriate either. E.g., if a (defgroup foo...) is evaluated but it gets no members, then (get 'foo 'custom-group) returns nil. So I'm not sure what the proper definition might be. That in itself (showing my ignorance/confusion) is one argument for having a `group-p' predicate. In GNU Emacs 24.3.50.1 (i386-mingw-nt5.1.2600) of 2013-01-25 on ODIEONE Bzr revision: 111604 eliz@gnu.org-20130125143821-1ykj7ia1qjojjjnp Windowing system distributor `Microsoft Corp.', version 5.1.2600 Configured using: `configure --with-gcc (4.7) --no-opt --enable-checking --cflags -IC:/Devel/emacs/build/include --ldflags -LC:/Devel/emacs/build/lib'