[Emacs-diffs] Changes to emacs/lisp/cus-edit.el,v

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      08/11/17 18:05:42

Index: cus-edit.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cus-edit.el,v
retrieving revision 1.359
retrieving revision 1.360
diff -u -b -r1.359 -r1.360
--- cus-edit.el 16 Nov 2008 23:27:41 -0000      1.359
+++ cus-edit.el 17 Nov 2008 18:05:42 -0000      1.360
@@ -4005,7 +4005,8 @@
           (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 @@
           ;; Update buttons.
           (widget-put widget :buttons buttons)
           ;; Insert documentation.
+          (if (>= (length (widget-docstring widget)) 50)
           (widget-add-documentation-string-button
-           widget :visibility-widget 'custom-visibility)
+               widget :visibility-widget 'custom-visibility))
 
           ;; Parent groups.
           (if nil  ;;; This should test that the buffer