diff options
| -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." | |||
| 4005 | (let ((start (point))) | 4005 | (let ((start (point))) |
| 4006 | (insert tag " group: ") | 4006 | (insert tag " group: ") |
| 4007 | (widget-specify-sample widget start (point))) | 4007 | (widget-specify-sample widget start (point))) |
| 4008 | (insert (widget-docstring widget)) | 4008 | (if (< (length (widget-docstring widget)) 50) |
| 4009 | (insert (widget-docstring widget))) | ||
| 4009 | ;; Create visibility indicator. | 4010 | ;; Create visibility indicator. |
| 4010 | (unless (eq custom-buffer-style 'links) | 4011 | (unless (eq custom-buffer-style 'links) |
| 4011 | (insert "--------") | 4012 | (insert "--------") |
| @@ -4032,8 +4033,9 @@ If GROUPS-ONLY non-nil, return only those members that are groups." | |||
| 4032 | ;; Update buttons. | 4033 | ;; Update buttons. |
| 4033 | (widget-put widget :buttons buttons) | 4034 | (widget-put widget :buttons buttons) |
| 4034 | ;; Insert documentation. | 4035 | ;; Insert documentation. |
| 4035 | (widget-add-documentation-string-button | 4036 | (if (>= (length (widget-docstring widget)) 50) |
| 4036 | widget :visibility-widget 'custom-visibility) | 4037 | (widget-add-documentation-string-button |
| 4038 | widget :visibility-widget 'custom-visibility)) | ||
| 4037 | 4039 | ||
| 4038 | ;; Parent groups. | 4040 | ;; Parent groups. |
| 4039 | (if nil ;;; This should test that the buffer | 4041 | (if nil ;;; This should test that the buffer |