From: Vinicius Jose Latorre <viniciusjl@ig.com.br>
Date: Wed, 1 Aug 2007 01:17:51 +0000 (+0000)
Subject: Fix parent groups link
X-Git-Tag: emacs-pretest-23.0.90~11634
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d84fcc304f91c9a201ded5cc87342014e881d51b;p=emacs.git

Fix parent groups link
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fceef2353de..d98ca272e16 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-07-31  Drew Adams  <drew.adams@oracle.com>
+
+	* cus-edit.el (custom-group-value-create, custom-goto-parent): Fix
+	parent groups link.
+
 2007-07-31  Paul Pogonyshev  <pogonyshev@gmx.net>
 
 	* progmodes/python.el (python-current-defun): Adjust to never fall
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index ff86711e041..78b402c9c0a 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -3878,7 +3878,7 @@ If GROUPS-ONLY non-nil, return only those members that are groups."
 		    ;;; was made to display a group.
 	       (when (eq level 1)
 		 (if (custom-add-parent-links widget
-					      "Parent group:")
+					      "Parent groups:")
 		     (insert "\n"))))
 	   ;; Create level indicator.
 	   (insert-char ?\  (* custom-buffer-indent (1- level)))
@@ -4480,7 +4480,7 @@ If several parents are listed, go to the first of them."
   (interactive)
   (save-excursion
     (goto-char (point-min))
-    (if (search-forward "\nGo to parent group: " nil t)
+    (if (search-forward "\nParent groups: " nil t)
 	(let* ((button (get-char-property (point) 'button))
 	       (parent (downcase (widget-get  button :tag))))
 	  (customize-group parent)))))