mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 07:30:50 -08:00
Code Issues Projects Releases Wiki Activity

Fix parent groups link

Browse source
This commit is contained in:
Vinicius Jose Latorre 2007-08-01 01:17:51 +00:00
parent 47968e06da
commit d84fcc304f
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

4
lisp/cus-edit.el
View file

@ -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)))))