Mercurial > emacs
changeset 82225:cdb30692dab7
Fix parent groups link
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
|---|---|
| date | Wed, 01 Aug 2007 01:17:51 +0000 |
| parents | bda0322e3767 |
| children | a4db3bd85e93 |
| files | lisp/ChangeLog lisp/cus-edit.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Aug 01 00:47:25 2007 +0000 +++ b/lisp/ChangeLog Wed Aug 01 01:17:51 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 Paul Pogonyshev <pogonyshev@gmx.net> * progmodes/python.el (python-current-defun): Adjust to never fall
--- a/lisp/cus-edit.el Wed Aug 01 00:47:25 2007 +0000 +++ b/lisp/cus-edit.el Wed Aug 01 01:17:51 2007 +0000 @@ -3878,7 +3878,7 @@ ;;; 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 @@ (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)))))