From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Richard Stallman Newsgroups: gmane.emacs.devel Subject: [drew.adams@oracle.com: RE: customize group and option should introduce parent groups the sameway] Date: Mon, 30 Jul 2007 16:48:34 -0400 Message-ID: Reply-To: rms@gnu.org NNTP-Posting-Host: lo.gmane.org Content-Type: text/plain; charset=ISO-8859-15 X-Trace: sea.gmane.org 1185828528 6986 80.91.229.12 (30 Jul 2007 20:48:48 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 30 Jul 2007 20:48:48 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Jul 30 22:48:41 2007 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1IFcAT-0004G3-JR for ged-emacs-devel@m.gmane.org; Mon, 30 Jul 2007 22:48:41 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IFcAT-0007Z7-48 for ged-emacs-devel@m.gmane.org; Mon, 30 Jul 2007 16:48:41 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1IFc8H-00058s-Rf for emacs-devel@gnu.org; Mon, 30 Jul 2007 16:46:25 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1IFc8G-00058G-LP for emacs-devel@gnu.org; Mon, 30 Jul 2007 16:46:25 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IFc8G-000589-HL for emacs-devel@gnu.org; Mon, 30 Jul 2007 16:46:24 -0400 Original-Received: from fencepost.gnu.org ([140.186.70.10]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1IFc8G-0002m8-4x for emacs-devel@gnu.org; Mon, 30 Jul 2007 16:46:24 -0400 Original-Received: from rms by fencepost.gnu.org with local (Exim 4.60) (envelope-from ) id 1IFcAM-00049Q-JE; Mon, 30 Jul 2007 16:48:34 -0400 X-detected-kernel: Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:75830 Archived-At: No one objected to this patch. Would someone please install it and ack? ------- Start of forwarded message ------- X-Spam-Status: No, score=0.0 required=5.0 tests=UNPARSEABLE_RELAY autolearn=failed version=3.1.0 From: "Drew Adams" To: Subject: RE: customize group and option should introduce parent groups the sameway Date: Sun, 22 Jul 2007 07:27:13 -0700 MIME-Version: 1.0 Content-Type: text/plain; charset="ISO-8859-15" In-Reply-To: > Would you like to submit a patch? Untested: *** cus-edit-CVS-2007-07-22.el Sun Jul 22 07:20:56 2007 - --- cus-edit-CVS-patched-2007-07-22.el Sun Jul 22 07:23:50 2007 *************** *** 3889,3895 **** ;;; was made to display a group. (when (eq level 1) (if (custom-add-parent-links widget ! "Parent group:") (insert "\n")))) ;; Create level indicator. (insert-char ?\ (* custom-buffer-indent (1- level))) - --- 3889,3895 ---- ;;; was made to display a group. (when (eq level 1) (if (custom-add-parent-links widget ! "Parent groups:") (insert "\n")))) ;; Create level indicator. (insert-char ?\ (* custom-buffer-indent (1- level))) *************** *** 4491,4497 **** (interactive) (save-excursion (goto-char (point-min)) ! (if (search-forward "\nGo to parent group: " nil t) (let* ((button (get-char-property (point) 'button)) (parent (downcase (widget-get button :tag)))) (customize-group parent))))) - --- 4491,4497 ---- (interactive) (save-excursion (goto-char (point-min)) ! (if (search-forward "\nParent groups: " nil t) (let* ((button (get-char-property (point) 'button)) (parent (downcase (widget-get button :tag)))) (customize-group parent))))) ------- End of forwarded message -------