Fix parent groups link

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 066ae1fef1344aba06b3ed79eb4e89591a8c3e03..8eed90ca0e8e0afae7968f2ce7658f061acf372f 100644 (file)
--- 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  Daiki Ueno  <ueno@unixuser.org>
 
         * faces.el (face-normalize-spec): New function.

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index b75f780097bec0acf29bf443fb308907ab298d67..ed9db15a7cfa2c7327868cfe0f0e3c1c121c6a57 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -3935,7 +3935,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
-                                             "Go to parent group:")
+                                             "Parent groups:")
                     (insert "\n"))))
           ;; Create level indicator.
           (insert-char ?\  (* custom-buffer-indent (1- level)))
@@ -4531,7 +4531,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)))))