Commit d84fcc30 authored by Vinicius Jose Latorre's avatar Vinicius Jose Latorre
Browse files

Fix parent groups link

parent 47968e06
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
......
......@@ -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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment