Mercurial > emacs
changeset 78377:8a9d5af6fdf2
Fix parent groups link
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
|---|---|
| date | Wed, 01 Aug 2007 01:18:37 +0000 |
| parents | ccd788316a58 |
| children | 617baea6e22a |
| files | lisp/ChangeLog lisp/cus-edit.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)))))