mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

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

Browse Source 
because such links don't lead to parent documentation.
This commit is contained in:
Juri Linkov 2005-12-08 07:51:32 +00:00
parent bd9fa00e04
commit 3f30c2726a
2 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/ChangeLog
View File

@ -1,3 +1,17 @@
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.

6
lisp/cus-edit.el
View File

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