From d84fcc304f91c9a201ded5cc87342014e881d51b Mon Sep 17 00:00:00 2001 From: Vinicius Jose Latorre Date: Wed, 1 Aug 2007 01:17:51 +0000 Subject: [PATCH] Fix parent groups link --- lisp/ChangeLog | 5 +++++ lisp/cus-edit.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 + + * cus-edit.el (custom-group-value-create, custom-goto-parent): Fix + parent groups link. + 2007-07-31 Paul Pogonyshev * 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))))) -- 2.39.5