diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/cus-edit.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 1d63ac63634..b0cd67411ac 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -4005,7 +4005,8 @@ If GROUPS-ONLY non-nil, return only those members that are groups." (let ((start (point))) (insert tag " group: ") (widget-specify-sample widget start (point))) - (insert (widget-docstring widget)) + (if (< (length (widget-docstring widget)) 50) + (insert (widget-docstring widget))) ;; Create visibility indicator. (unless (eq custom-buffer-style 'links) (insert "--------") @@ -4032,8 +4033,9 @@ If GROUPS-ONLY non-nil, return only those members that are groups." ;; Update buttons. (widget-put widget :buttons buttons) ;; Insert documentation. - (widget-add-documentation-string-button - widget :visibility-widget 'custom-visibility) + (if (>= (length (widget-docstring widget)) 50) + (widget-add-documentation-string-button + widget :visibility-widget 'custom-visibility)) ;; Parent groups. (if nil ;;; This should test that the buffer |