Commit 3f30c272 authored by Juri Linkov's avatar Juri Linkov
Browse files

(custom-add-parent-links): Filter out custom-group-link,

because such links don't lead to parent documentation.
parent bd9fa00e
2005-12-08 Juri Linkov <juri@jurta.org>
* info.el (Info-mode-map): Bind M-TAB to `Info-prev-reference'.
* button.el (button-buffer-map): Bind M-TAB to `backward-button'.
* wid-edit.el (widget-keymap): Bind M-TAB to `widget-backward'.
* pcvs.el (defun-cvs-mode): Put `definition-name' property on
the constructed function name fun-1.
* cus-edit.el (custom-add-parent-links): Filter out custom-group-link,
because such links don't lead to parent documentation.
2005-12-08 Kenichi Handa <handa@m17n.org>
 
* descr-text.el (describe-char): Use *Help-2* buffer if the
......@@ -187,7 +201,8 @@
 
* font-core.el (global-font-lock-mode): Use define-global-minor-mode
instead of easy-mmode-define-global-mode. Add `:group font-lock'.
(font-lock-mode): Replace `:group font-lock' with `nil nil nil'.
(font-lock-mode): Replace `:group font-lock' with `nil nil nil'
because there is no customization option for it.
 
* font-lock.el (lisp-font-lock-keywords-1):
Add define-global-minor-mode.
......@@ -223,8 +238,8 @@
property on their symbols (they have only `custom-loads').
 
* simple.el (completion-setup-function): Put completions-common-part
face on full completion string too (i.e. completion string without
completions-first-difference face).
face on complete completion string too (i.e. completion string
without completions-first-difference face).
 
* man.el (Man-section-regexp): Add 0-9 to support "3X11" sections.
 
......
......@@ -2155,7 +2155,11 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"."
(setq parents (cons symbol parents)))))
(and (null (get name 'custom-links)) ;No links of its own.
(= (length parents) 1) ;A single parent.
(let* ((links (get (car parents) 'custom-links))
(let* ((links (delq nil (mapcar (lambda (w)
(unless (eq (widget-type w)
'custom-group-link)
w))
(get (car parents) 'custom-links))))
(many (> (length links) 2)))
(when links
(insert "\nParent documentation: ")
......
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