# HG changeset patch
# User Vinicius Jose Latorre <viniciusjl@ig.com.br>
# Date 1185931117 0
# Node ID 8a9d5af6fdf2edd6e6cada6bc31433221f1de44f
# Parent  ccd788316a58e9ebb9afa59d43200b257edd0585
Fix parent groups link

diff -r ccd788316a58 -r 8a9d5af6fdf2 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jul 31 18:26:24 2007 +0000
+++ b/lisp/ChangeLog	Wed Aug 01 01:18:37 2007 +0000
@@ -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  Daiki Ueno  <ueno@unixuser.org>
 
         * faces.el (face-normalize-spec): New function.
diff -r ccd788316a58 -r 8a9d5af6fdf2 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Tue Jul 31 18:26:24 2007 +0000
+++ b/lisp/cus-edit.el	Wed Aug 01 01:18:37 2007 +0000
@@ -3935,7 +3935,7 @@
 		    ;;; was made to display a group.
 	       (when (eq level 1)
 		 (if (custom-add-parent-links widget
-					      "Go to parent group:")
+					      "Parent groups:")
 		     (insert "\n"))))
 	   ;; Create level indicator.
 	   (insert-char ?\  (* custom-buffer-indent (1- level)))
@@ -4531,7 +4531,7 @@
   (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)))))